Mini Shell
Mini Shell
| Direktori : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Class-XSAccessor-1.19/t/ |
| Current File : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Class-XSAccessor-1.19/t/07hash_boolean.t |
use strict;
use warnings;
package Foo;
use Class::XSAccessor
constructor => 'new',
true => [qw(t r u e)],
false => [qw(f a l s)];
package main;
use Test::More tests => 10;
ok (Foo->can('new'));
my $obj = Foo->new();
can_ok($obj, qw(t r u e f a l s));
ok($obj->$_) for qw(t r u e);
ok(not $obj->$_) for qw(f a l s);