[Templates] Update to Template/Plugin/XML/Simple.pm

[Tosh Cooey]

Hi Andy, would it be possible to add this update to the XML::Simple plugin?

OLD 'new'
sub new {
    my $class   = shift;
    my $context = shift;
    my $input   = shift;
    my $args    = ref $_[-1] eq 'HASH' ? pop(@_) : { };

    XMLin($input, %$args);
}

NEW 'new'
sub new {
    my $class   = shift;
    my $context = shift;
    my $input   = shift;
    my $args    = ref $_[-1] eq 'HASH' ? pop(@_) : { };

    if (defined($input)) {  # Don't want to break anything...
        return XMLin($input, %$args);
    } else {
        return new XML::Simple;
    }
}

And a small change to the docs...
=head1 SYNOPSIS

    # load plugin and specify XML file to parse
    [% USE xml = XML.Simple(xml_file_or_text) %]

    # Or load plugin as an object
    [% USE xml = XML.Simple %]
    # Then use XMLin or XMLout as usual
    [% xml.XMLout(data_ref, args) %]
    [% xml.XMLin(xml_file_or_text, args) %]

Thanks!!

Tosh

--
McIntosh Cooey - Twelve Hundred Group LLC - http://www.1200group.com/

_______________________________________________
templates mailing list
[EMAIL PROTECTED]
http://lists.template-toolkit.org/mailman/listinfo/templates