—

              
# $Id$
package Google::Chart::QueryComponent::Simple;
use Moose::Role;
use URI::Escape ();
with 'Google::Chart::QueryComponent';
requires qw(parameter_name parameter_value);
no Moose;
sub as_query {
    my $self = shift;
    return wantarray ? 
        ($self->parameter_name, $self->parameter_value) :
        join('=', $self->parameter_name, URI::Escape::uri_escape($self->parameter_value))
    ;
};
1;
__END__
HideShow 16 lines of Pod
=head1 NAME
Google::Chart::QueryComponent::Simple - Simplified Google::Chart Query Component
=head1 SYNOPSIS
  package MyStuff;
  use Moose;
  with 'Google::Chart::QueryComponent::Simple';
=head1 METHODS
=head2 as_query
=cut