File Coverage

blib/lib/Rose/HTMLx/Form/Field/Autocomplete.pm

Criterion	Covered	Total	%
statement	15	36	41.6
branch	0	8	0.0
condition	0	5	0.0
subroutine	5	9	55.5
pod	2	2	100.0
total	22	60	36.6

package Rose::HTMLx::Form::Field::Autocomplete;

use strict;
use warnings;
use Carp;

our $VERSION = '0.02';

use base qw( Rose::HTML::Form::Field::Text );

use Rose::Object::MakeMethods::Generic (scalar => [qw( autocomplete limit )]);

sub url
{
    my $self = shift;
    my $u    = $self->autocomplete or croak "no autocomplete URL set";
    my $n    = $self->name || $self->local_name;
    my $l    = $self->limit || 30;
    return [$u, {c => $n, l => $l}];
}

# borrowed from TT::Plugin::URL
sub url_as_string
{
    my $self = shift;
    my $url  = $self->url;
    my $args = $url->[1];
    my $esc  = join('&',
                   map { _url_args($_, $args->{$_}) }
                     grep { defined $args->{$_} && length $args->{$_} }
                     sort keys %$args);

    return $url->[0] . '?' . $esc;
}

# borrowed from TT::Plugin::URL
sub _url_args
{
    my ($key, $val) = @_;
    $key = _escape($key);

    return map { "$key=" . _escape($_); } ref $val eq 'ARRAY' ? @$val : $val;
}

# borrowed from TT::Plugin::URL, which borrowed froM CGI.pm
sub _escape
{
    my $toencode = shift;
    return undef unless defined($toencode);
    $toencode =~ s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
    return $toencode;
}

1;

__END__