File Coverage

blib/lib/App/MP4Meta/Source/Data/Base.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	22	22	100.0

use 5.010;
use strict;
use warnings;

package App::MP4Meta::Source::Data::Base;
{
  $App::MP4Meta::Source::Data::Base::VERSION = '1.153340';
}

# ABSTRACT: Base class for metadata.

use Object::Tiny qw(
  cover
  genre
  overview
  title
  year
);

sub merge {
    my ( $self, $to_merge ) = @_;

    while ( my ( $key, $value ) = each(%$to_merge) ) {
        $self->{$key} = $value unless $self->{$key};
    }
}

1;

__END__