Yet Another CPAN Grep

Template-Plugin-WebService ( E/EA/EARL/Template-Plugin-WebService-0.16.tar.gz, EARL, 2008; MetaCPAN )

Template-Plugin-WebService/lib/Template/Plugin/WebService.pm ( view source; MetaCPAN )

t;
    my $form = shift;

    my $outserial_key = $self->outserial_key;
    
    my $outserial = 'json';

    if($form->{$outserial_key}) {
        $outserial = $form->{$outserial_key};
    } elsif($u

  require YAML;
        $obj = YAML::Load($content);
    } else {
        require JSON;
        $obj = JSON::from_json($content);
    }

    return $obj;
}

1;

__END__

=head1 NAME

Template::Plugin:

a form or just in the url's query_string
 - handles many serializations (JSON, Storable, XML::Simple, YAML)
 - defaults to JSON

=head1 OVERRIDABLE METHODS

content_cleanup - gets sent a Template::Plu