diff options
| author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-07 15:48:25 +0000 |
|---|---|---|
| committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-07 15:48:25 +0000 |
| commit | 1810d30231d48a745bab3931c18044bc19c85e61 (patch) | |
| tree | 1bf68006c63547eefb0e17dc7bda3b51916e1407 /lib/Reaction/Class.pm | |
| parent | 9964b409a3ceaf45a9e07dd0f6a3d77d13ae3f1d (diff) | |
| download | reaction-1810d30231d48a745bab3931c18044bc19c85e61.tar.gz reaction-1810d30231d48a745bab3931c18044bc19c85e61.zip | |
squelch a warning in Reaction::Class, port from BindLex to Component::ACCEPT_CONTEXT
Diffstat (limited to 'lib/Reaction/Class.pm')
| -rw-r--r-- | lib/Reaction/Class.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Reaction/Class.pm b/lib/Reaction/Class.pm index 549ee15..fcaf0a5 100644 --- a/lib/Reaction/Class.pm +++ b/lib/Reaction/Class.pm @@ -9,6 +9,7 @@ use Reaction::Object; sub exporter_for_package { my ($self, $package) = @_; my %exports_proto = $self->exports_for_package($package); + no warnings 'uninitialized'; # XXX fix this my %exports = ( map { my $cr = $exports_proto{$_}; ($_, sub { Sub::Name::subname "${self}::$_" => $cr; }) } keys %exports_proto |