File Coverage

blib/lib/MP3/Daemon/PIMP.pm
Criterion Covered Total %
statement 9 13 69.2
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 18 72.2


line stmt bran cond sub pod time code
1             package MP3::Daemon::PIMP;
2              
3 1     1   854 use strict;
  1         2  
  1         47  
4 1     1   5 use MP3::Daemon;
  1         2  
  1         25  
5              
6 1     1   6 use vars qw(@ISA $VERSION);
  1         2  
  1         156  
7             @ISA = 'MP3::Daemon';
8             $VERSION = 0.02;
9              
10             # constructor that does NOT daemonize itself
11             #_______________________________________
12             sub new {
13 0     0 1   my $class = shift;
14 0           my $self = $class->SUPER::new(@_);
15              
16 0           $self->{playlist} = [ ];
17 0           $self->{n} = undef,
18              
19             return $self;
20             }
21              
22             "pimp!";
23              
24             __END__