-#!/usr/bin/perl
-
use strict;
use warnings;
boolean => 0,
);
isa_ok( $foo, 'Foo' );
-
+
is($foo->boolean, 0, '... got the right boolean value');
-
+
cmp_deeply(
$foo->pack,
{
number => 0,
string => '',
boolean => 0,
- }
+ }
);
isa_ok( $foo, 'Foo' );