package Input::SignUp; our @ISA = qw/Input/; use strict; use warnings; sub _init { $_[0]->make_methods( 'user' => [ qr/^[a-zA-Z0-9]+$/, 'Username may only contain alphanumeric characters' ], 'password' => [ qr/^[a-zA-Z0-9]+$/, 'Password may only contain alphanumeric characters' ], 'key' => [ qr/^[a-fA-F0-9]+$/, 'Key may only contain A-F alphanumeric characters' ], ); } 1;