use strict;
use Test::More tests => 3;
use_ok( 'Sub::Compose' );
my $a = sub { return $_[0] * 2 };
my $b = Sub::Compose::compose( $a, $a );
isa_ok( $b, 'CODE' );
my @v = $b->( 2 );
is( $v[0], 8 );
use strict;
use Test::More tests => 3;
use_ok( 'Sub::Compose' );
my $a = sub { return $_[0] * 2 };
my $b = Sub::Compose::compose( $a, $a );
isa_ok( $b, 'CODE' );
my @v = $b->( 2 );
is( $v[0], 8 );