File Coverage

blib/lib/XML/Feed/Enclosure.pm

Criterion	Covered	Total	%
statement	9	19	47.3
branch	0	2	0.0
condition			n/a
subroutine	3	8	37.5
pod	4	4	100.0
total	16	33	48.4

package XML::Feed::Enclosure;
use strict;
use warnings;

our $VERSION = '0.53';

use base qw( Class::ErrorHandler );

sub wrap {
    my $class = shift;
    my($c) = @_;
    bless { %$c }, $class;
}
*new = \&wrap;

sub _var {
    my $enclosure = shift;
    my $var = shift;
    $enclosure->{$var} = shift if @_;
    $enclosure->{$var};
}

sub type   { shift->_var('type',   @_) }
sub length { shift->_var('length', @_) }
sub url    { shift->_var('url',    @_) }

1;
__END__