diff options
| author | edenc <edenc@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-08-12 16:57:03 +0000 |
|---|---|---|
| committer | edenc <edenc@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-08-12 16:57:03 +0000 |
| commit | 2f6669e1c3ed4be76fff219c0e259d37a99da392 (patch) | |
| tree | b6af41f32ecad378f469f7cd2f1f866d5a0097e2 | |
| parent | f94f51bf55fbba43fb6d674234aec337e429b584 (diff) | |
| download | reaction-2f6669e1c3ed4be76fff219c0e259d37a99da392.tar.gz reaction-2f6669e1c3ed4be76fff219c0e259d37a99da392.zip | |
improved WidgetClass error message
| -rw-r--r-- | lib/Reaction/UI/WidgetClass.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Reaction/UI/WidgetClass.pm b/lib/Reaction/UI/WidgetClass.pm index 22e00e6..b1c88c0 100644 --- a/lib/Reaction/UI/WidgetClass.pm +++ b/lib/Reaction/UI/WidgetClass.pm @@ -57,7 +57,11 @@ override exports_for_package => sub { my ($name, $value) = @_; my $sig = "should be: arg 'name' => \$value"; - if (@_ < 2) { confess "Not enough arguments, $sig"; } + if (@_ < 2) { + $name ||= 'undef'; + $value ||= 'undef'; + confess "Not enough arguments, $sig, got: $name => $value"; + } if (!defined $name) { confess "name undefined, $sig"; } if (ref $name) { confess "name is not a string, $sig"; } |