1use Data::Perl; 2use Test::More; 3 4 5my $array = array(qw/1 2 3 4/); 6isa_ok($array, 'Data::Perl::Collection::Array'); 7 8my $hash = hash(qw/1 2 3 4/); 9isa_ok($hash, 'Data::Perl::Collection::Hash'); 10 11my $code = code(); 12isa_ok($code, 'Data::Perl::Code'); 13 14my $code2 = code(sub { 'foo' }); 15isa_ok($code2, 'Data::Perl::Code'); 16 17my $number = number(); 18isa_ok($number, 'Data::Perl::Number'); 19 20$number2 = number(2); 21isa_ok($number2, 'Data::Perl::Number'); 22 23my $bool = bool(1); 24isa_ok($bool, 'Data::Perl::Bool'); 25 26my $string = string(); 27isa_ok($string, 'Data::Perl::String'); 28 29my $string2 = string('foo'); 30isa_ok($string2, 'Data::Perl::String'); 31 32my $counter = counter(); 33isa_ok($counter, 'Data::Perl::Counter'); 34 35my $counter2 = counter(1); 36isa_ok($counter2, 'Data::Perl::Counter'); 37 38done_testing(); 39