aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Reaction/UI/ViewPort.pm
diff options
context:
space:
mode:
authorgroditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2008-01-02 22:57:32 +0000
committergroditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2008-01-02 22:57:32 +0000
commit36d54b146cfba17f5c7757eced453429ee31c780 (patch)
treeb6b64cdf2c279bc7337c3dad7043f43e57e64de2 /lib/Reaction/UI/ViewPort.pm
parentc03f75a7322e8194591d2f8bd02fb3f83df8833f (diff)
downloadreaction-36d54b146cfba17f5c7757eced453429ee31c780.tar.gz
reaction-36d54b146cfba17f5c7757eced453429ee31c780.zip
choosemany is still broken (not applying changes) but everything else is looking better
Diffstat (limited to 'lib/Reaction/UI/ViewPort.pm')
-rw-r--r--lib/Reaction/UI/ViewPort.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Reaction/UI/ViewPort.pm b/lib/Reaction/UI/ViewPort.pm
index 8cc6917..d7c1980 100644
--- a/lib/Reaction/UI/ViewPort.pm
+++ b/lib/Reaction/UI/ViewPort.pm
@@ -1,6 +1,7 @@
package Reaction::UI::ViewPort;
use Reaction::Class;
+use Scalar::Util qw/blessed/;
class ViewPort which {
@@ -15,7 +16,6 @@ class ViewPort which {
isa => 'HashRef', is => 'ro', default => sub { {} }
);
has ctx => (isa => 'Catalyst', is => 'ro', required => 1);
- has column_order => (is => 'rw');
implements _build_layout => as {
'';
@@ -60,6 +60,8 @@ class ViewPort which {
implements apply_child_events => as {
my ($self, $ctx, $events) = @_;
foreach my $child ($self->child_event_sinks) {
+ confess blessed($child) ."($child) is not a valid object"
+ unless blessed($child) && $child->can('apply_events');
$child->apply_events($ctx, $events);
}
};