File Coverage

blib/lib/WebService/IMDB/Death.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	30	32	93.7

# $Id: Death.pm 7370 2012-04-09 01:17:33Z chris $

=head1 NAME

WebService::IMDB::Death

=cut

package WebService::IMDB::Death;

use strict;
use warnings;

our $VERSION = '0.05';

use base qw(WebService::IMDB::DatePlace);

use Carp;
our @CARP_NOT = qw(WebService::IMDB WebService::IMDB::Name);

use WebService::IMDB::Date;

__PACKAGE__->mk_accessors(qw(
    cause
));


=head1 METHODS

=head2 cause

=cut

sub _new {
    my $class = shift;
    my $ws = shift;
    my $data = shift or die;

    my $self = $class->SUPER::_new($ws, $data);

    if (exists $data->{'cause'}) { $self->cause($data->{'cause'}); }

    return $self;
}

1;