6 use Test::More tests => 6 + 1 * 2;
10 my $sn = new Sub::Nary;
11 ok(defined $sn, 'SN object is defined');
12 is(ref $sn, 'Sub::Nary', 'SN object is valid');
15 ok(defined $sn2, 'SN::new called as an object method works' );
16 is(ref $sn2, 'Sub::Nary', 'SN::new called as an object method works is valid');
18 my $sn3 = Sub::Nary::new();
19 ok(defined $sn3, 'SN::new called as a function works ');
20 is(ref $sn3, 'Sub::Nary', 'SN::new called as a functions returns a Sub::Nary object');
23 bless $fake, 'Sub::Nary::Hlagh';
25 eval "Sub::Nary::$_('Sub::Nary')";
26 like($@, qr/^First\s+argument/, "SN::$_ isn't a class method");
27 eval "Sub::Nary::$_(\$fake)";
28 like($@, qr/^First\s+argument/, "SN::$_ only applies to SN objects");