diff options
| author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-08-22 15:59:56 +0000 |
|---|---|---|
| committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-08-22 15:59:56 +0000 |
| commit | a6a29a3269eb1986c81017e2b095e8f69ef28b67 (patch) | |
| tree | 59ca11246a6c0041518131b8f5d3a77de166492c /lib/Reaction/UI/WidgetClass.pm | |
| parent | ac31d76cb2d553cde98058e5e750ee7c6dfd4146 (diff) | |
| download | reaction-a6a29a3269eb1986c81017e2b095e8f69ef28b67.tar.gz reaction-a6a29a3269eb1986c81017e2b095e8f69ef28b67.zip | |
better error
Diffstat (limited to 'lib/Reaction/UI/WidgetClass.pm')
| -rw-r--r-- | lib/Reaction/UI/WidgetClass.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Reaction/UI/WidgetClass.pm b/lib/Reaction/UI/WidgetClass.pm index e1a797b..622eec4 100644 --- a/lib/Reaction/UI/WidgetClass.pm +++ b/lib/Reaction/UI/WidgetClass.pm @@ -47,7 +47,7 @@ override exports_for_package => sub { my $sig = "should be: render 'name' or render 'name' => over \$coll"; if (!defined $name) { confess "name undefined: $sig"; } - if (ref $name) { confess "name not string: $sig"; } + if (ref $name) { confess "name is a ${\ref $name} ref, not a plain string: $sig"; } if (defined $over && !(blessed($over) && $over->isa(_OVER))) { confess "invalid args after name, $sig"; } |