Permalink
Browse files

Simplify Exporter.pm usage

  • Loading branch information...
1 parent 90d513b commit 75da2a7f42418713c4daae595c29fdfdbe19c46d Max Maischein committed Nov 30, 2010
Showing with 8 additions and 6 deletions.
  1. +3 −0 Changes
  2. +1 −0 Makefile.PL
  3. +1 −2 lib/MozRepl/Plugin/JSON2.pm
  4. +3 −4 lib/MozRepl/RemoteObject.pm
View
3 Changes
@@ -1,3 +1,6 @@
+0.19 to be released
+ . Simplify Exporter usage
+
0.18 20101122
. Add test for pop(), actually make pop() work
. Add test for splice(), actually make splice() work
View
1 Makefile.PL
@@ -22,6 +22,7 @@ WriteMakefile1(
'File::Basename' => 0,
'parent' => 0,
'IPC::Run' => 0, # to optionally launch Firefox
+ 'Exporter' => 0, # just to be more complete
}, # e.g., Module::Name => 1.1
'ABSTRACT_FROM' => 'lib/MozRepl/RemoteObject.pm', # retrieve abstract from module
'AUTHOR' => 'Max Maischein <corion@cpan.org>',
View
3 lib/MozRepl/Plugin/JSON2.pm
@@ -1,7 +1,6 @@
package MozRepl::Plugin::JSON2;
use strict;
use parent 'MozRepl::Plugin::Base';
-
use vars '$VERSION';
=head1 NAME
@@ -15,7 +14,7 @@ the MozRepl::RemoteObject JSON encoding/decoding.
=cut
-$VERSION = '0.18';
+$VERSION = '0.19';
sub setup {
my ($self, $ctx, $args) = @_;
View
7 lib/MozRepl/RemoteObject.pm
@@ -1,5 +1,6 @@
package MozRepl::RemoteObject;
use strict;
+use Exporter 'import';
use JSON;
use Carp qw(croak cluck);
use MozRepl;
@@ -38,12 +39,10 @@ MozRepl::RemoteObject - treat Javascript objects as Perl objects
=cut
-use vars qw[$VERSION $objBridge @CARP_NOT @EXPORT_OK @ISA];
-$VERSION = '0.18';
+use vars qw[$VERSION $objBridge @CARP_NOT @EXPORT_OK ];
+$VERSION = '0.19';
-@ISA='Exporter';
@EXPORT_OK=qw[as_list];
-
@CARP_NOT = (qw[MozRepl::RemoteObject::Instance
MozRepl::RemoteObject::TiedHash
MozRepl::RemoteObject::TiedArray

0 comments on commit 75da2a7

Please sign in to comment.