XML::Atom::Syndication::Generator - class representing the Atom feed generator

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__