File Coverage

blib/lib/Kwiki/Email.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Kwiki::Email;
use strict;
use warnings;
use Kwiki::Plugin '-Base';
use Email::Valid;
our $VERSION = '0.02';

const class_id => 'email';

sub register {
    my $registry = shift;
    $registry->add(
		preference => 'email',
        object => $self->email,
    );
}

sub email {
    my $p = $self->new_preference('email');
    $p->query('Enter your email address.');
    $p->type('input');
    $p->size(30);
    $p->edit('check_email');
    $p->default('');
    return $p;
}

sub check_email {
    my $preference = shift;
    my $value      = $preference->new_value;
    return unless length $value;
    $preference->error('Invalid Email Adress.')
      unless Email::Valid->address($value);
}

1;

__DATA__