use strict;
use warnings;
-use lib qw{blib/lib};
+use lib qw<blib/lib>;
use B::RecDeparse;
-# use B::Deparse;
my $deparser = B::RecDeparse->new(deparse => [ '-sCi0v1' ], level => 1);
-# my $deparser = B::Deparse->new('-sCi0v1');
sub spec (&) {
return unless defined $_[0] and ref $_[0] eq 'CODE';
print STDERR '### ', fma(1, 3, 2), "\n";
my $sfma = spec sub { my $x = \&mul; fma $_[0], 3, $_[1] };
-print STDERR '### ', $sfma->(1, 2), "\n";
+print STDERR '### ', $sfma->(1, 2), "\n";