File Coverage

lib/Kwiki/Zipcode.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Kwiki::Zipcode;
use Kwiki::Plugin -Base;
our $VERSION = '0.12';

const class_id => 'zipcode';

sub register {
    my $registry = shift;
    $registry->add(preference => $self->zipcode);
    $registry->add(prerequisite => 'user_preferences');
}

sub zipcode {
    my $p = $self->new_preference('zipcode');
    $p->query('Enter your zipcode.');
    $p->type('input');
    $p->size(5);
    $p->edit('check_zipcode');
    $p->default('');
    return $p;
}

sub check_zipcode {
    my $preference = shift;
    my $value = $preference->new_value;
    return unless length $value;
    $preference->error('Invalid. Must be 5 digits.')
      unless $value =~ /^\d{5}$/;
}

__DATA__