File Coverage

File:t/07-package-stash.t
Coverage:100.0%

linestmtbrancondsubpodtimecode
1#!perl
2
3
1
1
1
58244
4
86
use strict;
4
1
1
1
5
1
42
use warnings;
5
6
1
1
1
635
62112
12
use Test::More tests => 4;
7
8
1
1
1
10159
3
1977
use Util::Underscore;
9
10# fixture
11{
12
13
1
193563
    package Foo;
14}
15
16
1
4
my $foo = _::package 'Foo';
17
1
3
my $bar = _::package 'Bar';
18
19
1
5
isa_ok $foo, 'Package::Stash';
20
1
1089
isa_ok $foo, 'Package::Stash';
21
22
1
796
is $foo->name, 'Foo';
23
1
798
is $bar->name, 'Bar';