File Coverage

blib/lib/XUL/App/JSFile.pm
Criterion Covered Total %
statement 9 16 56.2
branch 0 2 0.0
condition n/a
subroutine 3 5 60.0
pod 1 2 50.0
total 13 25 52.0


line stmt bran cond sub pod time code
1             package XUL::App::JSFile;
2              
3 1     1   1747 use strict;
  1         2  
  1         36  
4 1     1   6 use warnings;
  1         2  
  1         30  
5              
6 1     1   6 use base 'Class::Accessor::Fast';
  1         1  
  1         940  
7             __PACKAGE__->mk_accessors(qw{
8             prereqs
9             });
10              
11             sub new {
12 0     0 1   my $proto = shift;
13 0           my $self = $proto->SUPER::new(@_);
14 0           my $list = $self->prereqs;
15 0 0         if (!ref $list) { $self->prereqs([$list]) }
  0            
16 0           return $self;
17             }
18              
19             sub go {
20 0     0 0   my ($self, $file) = @_;
21             }
22              
23             1;