oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

inject methods into a superclass instead of the class itself

Browse source
This commit is contained in:
Graham Knop 2009-10-14 17:06:17 -05:00
parent 9178c4e274
commit d852c58a90
2 changed files with 18 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

6
t/Definition.t
View file

@ -55,10 +55,10 @@ my $written;
$written = 1;
}
sub _set_a_property {
sub a_property {
my $self = shift;
my $value = shift;
return "$value - BLAH";
return $self->next::method("$value - BLAH");
}
}
@ -85,7 +85,7 @@ is_deeply [ $subclass_object->getProperties ], ['property1', 'a_property', 'prop
is_deeply $object->get, { property1 => 'property 1 value' },
'get returns hash with correct properties';
is_deeply $subclass_object->get, { property1 => undef, a_property => undef, property2 => 'property 2 value' },
is_deeply $subclass_object->get, { property1 => undef, a_property => ' - BLAH', property2 => 'property 2 value' },
'get returns hash with correct properties';
is_deeply $object->getProperty('property1'), { label => 'property1 label', defaultValue => $object },