File Coverage

blib/lib/WWW/AdServer.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package WWW::AdServer;
2             {
3             $WWW::AdServer::VERSION = '1.01';
4             }
5 1     1   303687 use Moo;
  1         130147  
  1         12  
6             #use MooX::late;
7              
8             #has dsn => (is => 'ro', required => 1);
9             #has db => (is => 'ro', required => 1, isa => 'WWW::AdServer::Database');
10 1     1   2797 use WWW::AdServer::Database;
  1         4  
  1         42  
11              
12             #sub BUILDARGS {
13             # my ($class, %args) = @_;
14             # if ($args{dsn}) {
15             # $args{db} = WWW::AdServer::Database->new(dsn => $args{dsn});
16             # }
17             # return \%args;
18             #}
19              
20             1;
21              
22             __END__