File Coverage

blib/lib/AudioFile/Info/Dummy.pm
Criterion Covered Total %
statement 11 15 73.3
branch n/a
condition n/a
subroutine 6 10 60.0
pod 7 7 100.0
total 24 32 75.0


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             AudioFile::Info::Dummy
4              
5             =head1 DESCRIPTION
6              
7             Dummy plugin for testing AudioFile::Info.
8              
9             =head1 SYNOPSIS
10              
11             Don't use this.
12              
13             =cut
14              
15             package AudioFile::Info::Dummy;
16              
17 1     1   20 use 5.006;
  1         3  
18 1     1   5 use strict;
  1         1  
  1         21  
19 1     1   4 use warnings;
  1         2  
  1         156  
20              
21             =head1 METHODS
22              
23             =head2 new, artist, title, album, track, year, genre
24              
25             =cut
26              
27             sub new {
28 1     1 1 5 return bless {}, $_[0];
29             }
30              
31 1     1 1 915 sub artist { return 'ARTIST' }
32 0     0 1 0 sub title { return 'TITLE' }
33 0     0 1 0 sub album { return 'ALBUM' }
34 1     1 1 6 sub track { return 0 }
35 0     0 1   sub year { return 'YEAR' }
36 0     0 1   sub genre { return 'GENRE' }
37              
38             1;
39