File Coverage

blib/lib/Net/DVDProfiler/DVD.pm

Criterion	Covered	Total	%
statement	0	6	0.0
branch			n/a
condition	0	3	0.0
subroutine	0	3	0.0
pod	3	3	100.0
total	3	15	20.0

package Net::DVDProfiler::DVD;

sub new {
  my $ref = shift;
  my $class = ref( $ref ) || $ref;

  my $self = bless {
    title => undef,
    upc => undef,
    @_
  }, $class;

  return $self;
}

sub title {
  return $_[0]->{title};
}

sub upc {
  return $_[0]->{upc};
}
1;

__END__