File Coverage

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

Criterion	Covered	Total	%
statement	13	17	76.4
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	2	50.0
total	20	26	76.9

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

use base qw( XML::Atom::Syndication::Object );
use XML::Elemental::Characters;

XML::Atom::Syndication::Generator->mk_accessors('attribute', 'uri', 'version');
XML::Atom::Syndication::Generator->mk_accessors('attribute', 'url')
  ;    # deprecated 0.3 accessors

sub element_name { 'generator' }

sub agent {
    my $e = $_[0]->elem;
    if (@_ > 1) {
        my $chars = XML::Elemental::Characters->new;
        $chars->data($_[1]);
        $chars->parent($e);
        $e->contents([$chars]);
    } else {
        $e->text_content;
    }
}

1;

__END__