forgot to check this in somehow

This commit is contained in:
JT Smith 2008-07-30 21:17:46 +00:00
parent d972141607
commit 03092ff297
4 changed files with 139 additions and 372 deletions

View file

@ -158,7 +158,7 @@ sub process {
my $self = shift;
my $args = shift || '';
die __PACKAGE__."::process requires an href" unless ref $args eq 'HASH';
die __PACKAGE__."::process requires a hash ref" unless ref $args eq 'HASH';
my ($name, $type, $default, $params) = @$args{qw( name type default params )};
$params->{name} = $name;