File Coverage

lib/Kwiki/UserName.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::UserName;
use Kwiki::Plugin -Base;
use mixin 'Kwiki::Installer';
use Kwiki ':char_classes';
our $VERSION = '0.14';

const class_id => 'user_name';
const css_file => 'user_name.css';

sub register {
    my $registry = shift;
    $registry->add(preload => 'user_name');
    $registry->add(preference => $self->user_name);
}

sub user_name {
    my $p = $self->new_preference('user_name');
    $p->query('Enter a KwikiUserName to identify yourself.');
    $p->type('input');
    $p->size(15);
    $p->edit('check_user_name');
    $p->default('');
    return $p;
}

sub check_user_name {
    my $preference = shift;
    my $value = $preference->new_value;
    $self->utf8_decode($value);
    return unless length $value;
    return $preference->error('Must be all alphanumeric characters.')
      unless $value =~ /^[$ALPHANUM]+$/;
    return $preference->error('Must be less than 30 characters.')
      unless length($value) < 30;
    $self->users->current(undef);
    return 1;
}

__DATA__