File: class-tiny.t

package info (click to toggle)
libmoo-perl 2.004004-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 844 kB
  • sloc: perl: 2,449; makefile: 6
file content (28 lines) | stat: -rw-r--r-- 388 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
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;