File Coverage

blib/lib/AtomicParsley/Command/Tags.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 23 23 100.0


line stmt bran cond sub pod time code
1 2     2   87558 use strict;
  2         6  
  2         77  
2 2     2   12 use warnings;
  2         2  
  2         174  
3              
4             package AtomicParsley::Command::Tags;
5             {
6             $AtomicParsley::Command::Tags::VERSION = '1.130420';
7             }
8              
9             # ABSTRACT: represent the mp4 metatags
10              
11 2         13 use Object::Tiny qw{
12             artist
13             title
14             album
15             genre
16             tracknum
17             disk
18             comment
19             year
20             lyrics
21             composer
22             copyright
23             grouping
24             artwork
25             bpm
26             albumArtist
27             compilation
28             advisory
29             stik
30             description
31             longdesc
32             TVNetwork
33             TVShowName
34             TVEpisode
35             TVSeasonNum
36             TVEpisodeNum
37             podcastFlag
38             category
39             keyword
40             podcastURL
41             podcastGUID
42             purchaseDate
43             encodingTool
44             gapless
45 2     2   1632 };
  2         769  
46              
47             sub prepare {
48 1     1 1 1276 my $self = shift;
49              
50             # loop through all accessors and generate parameters for AP
51 1         1 my @out;
52 1         11 while ( my ( $key, $value ) = each(%$self) ) {
53 4 100       8 next unless ( defined $value );
54              
55 3         7 push @out, "--$key";
56 3         9 push @out, $value;
57             }
58              
59 1         5 return @out;
60             }
61              
62             1;
63              
64              
65             __END__