File Coverage

File:t/03-basic.t
Coverage:100.0%

linestmtbrancondsubpodtimecode
1
1
1
1
1
2947
2
24
use strict;
2
1
1
1
1
3
1
35
use warnings;
3
4
1
1
1
1
330
69503
6
use Test::More q//;
5
6
1
1
1
1
543
1
1030
use Util::H2O::More qw/h2o/;
7
8
1
65032
my $self = {
9    somewhere => q{over},
10    the       => q{rainbow},
11};
12
13
1
4
my $qux = h2o -isa => q{Herp::Derp}, -class => q{Herp::Derp::_1}, $self;
14
15
1
117
is ref $qux, q{Herp::Derp::_1}, q{exported call to `h2o` works from Util::H2O::More.};
16
17
1
281
done_testing;