File Coverage

blib/lib/XML/Atom/Syndication/Source.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	3	4	75.0
condition			n/a
subroutine	4	4	100.0
pod	1	2	50.0
total	23	25	92.0

package XML::Atom::Syndication::Source;
use strict;

use base qw( XML::Atom::Syndication::Thing );

XML::Atom::Syndication::Source->mk_accessors('element', 'icon', 'logo');
XML::Atom::Syndication::Source->mk_accessors(
                                            'XML::Atom::Syndication::Generator',
                                            'generator');
XML::Atom::Syndication::Source->mk_accessors('XML::Atom::Syndication::Text',
                                             'subtitle');

sub element_name { 'source' }

# This is the init method in XML::Atom::Syndication::Object. Could do
# better.
sub init {
    my $atom = shift;
    my %param = @_ == 1 ? (Elem => $_[0]) : @_;
    $atom->set_ns(\%param);
    unless ($atom->{elem} = $param{Elem}) {
        require XML::Elemental::Element;
        $atom->{elem} = XML::Elemental::Element->new;
        $atom->{elem}->name('{' . $atom->ns . '}' . $atom->element_name);
    }
    $atom;
}

1;

__END__