File Coverage

blib/lib/App/MP4Meta/Source/Data/Base.pm
Criterion Covered Total %
statement 12 15 80.0
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 23 73.9


line stmt bran cond sub pod time code
1 1     1   12 use 5.010;
  1         3  
  1         29  
2 1     1   6 use strict;
  1         1  
  1         22  
3 1     1   6 use warnings;
  1         1  
  1         88  
4              
5             package App::MP4Meta::Source::Data::Base;
6             {
7             $App::MP4Meta::Source::Data::Base::VERSION = '1.130420';
8             }
9              
10             # ABSTRACT: Base class for metadata.
11              
12 1         7 use Object::Tiny qw(
13             cover
14             genre
15             overview
16             title
17             year
18 1     1   3468 );
  1         390  
19              
20             sub merge {
21 0     0 1   my ( $self, $to_merge ) = @_;
22              
23 0           while ( my ( $key, $value ) = each(%$to_merge) ) {
24 0 0         $self->{$key} = $value unless $self->{$key};
25             }
26             }
27              
28             1;
29              
30              
31              
32             =pod
33              
34             =head1 NAME
35              
36             App::MP4Meta::Source::Data::Base - Base class for metadata.
37              
38             =head1 VERSION
39              
40             version 1.130420
41              
42             =head1 SYNOPSIS
43              
44             my $episode = App::MP4Meta::Source::Data::Base->new(%data);
45              
46             =head1 ATTRIBUTES
47              
48             =head2 cover
49              
50             Path to cover imaage.
51              
52             =head2 genre
53              
54             Genre.
55              
56             =head2 overview
57              
58             Overview or description.
59              
60             =head2 title
61              
62             Title.
63              
64             =head2 year
65              
66             Year.
67              
68             =head1 METHODS
69              
70             =head2 merge ($to_merge)
71              
72             Merges $to_merge in $self, without overwriting $self.
73              
74             =head1 AUTHOR
75              
76             Andrew Jones
77              
78             =head1 COPYRIGHT AND LICENSE
79              
80             This software is copyright (c) 2013 by Andrew Jones.
81              
82             This is free software; you can redistribute it and/or modify it under
83             the same terms as the Perl 5 programming language system itself.
84              
85             =cut
86              
87              
88             __END__