From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 14 May 2010 16:39:56 +0000 (-0500)
Subject: rename Stash::Manip -> Package::Stash
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e94260dab724974551751dbdda9c4c9abde76e6e;p=gitmo%2FPackage-Stash-PP.git

rename Stash::Manip -> Package::Stash
---

diff --git a/Changes b/Changes
index e503e81..38f5689 100644
--- a/Changes
+++ b/Changes
@@ -1,4 +1,4 @@
-Revision history for Stash::Manip
+Revision history for Package::Stash
 
 0.02    2010-05-13
     Need to dep on Test::Exception
diff --git a/dist.ini b/dist.ini
index 5b634e5..162472e 100644
--- a/dist.ini
+++ b/dist.ini
@@ -1,4 +1,4 @@
-name = Stash-Manip
+name = Package-Stash
 version = 0.02
 author = Jesse Luehrs <doy at tozt dot net>
 license = Perl_5
diff --git a/lib/Stash/Manip.pm b/lib/Package/Stash.pm
similarity index 94%
rename from lib/Stash/Manip.pm
rename to lib/Package/Stash.pm
index cad3742..84a4d0b 100644
--- a/lib/Stash/Manip.pm
+++ b/lib/Package/Stash.pm
@@ -1,4 +1,4 @@
-package Stash::Manip;
+package Package::Stash;
 use strict;
 use warnings;
 
@@ -7,11 +7,11 @@ use Scalar::Util qw(reftype);
 
 =head1 NAME
 
-Stash::Manip - routines for manipulating stashes
+Package::Stash - routines for manipulating stashes
 
 =head1 SYNOPSIS
 
-  my $stash = Stash::Manip->new('Foo');
+  my $stash = Package::Stash->new('Foo');
   $stash->add_package_symbol('%foo', {bar => 1});
   # $Foo::foo{bar} == 1
   $stash->has_package_symbol('$foo') # false
@@ -33,7 +33,7 @@ a sigil. If this sigil is absent, it is assumed to represent the IO slot.
 
 =head2 new $package_name
 
-Creates a new C<Stash::Manip> object, for the package given as the only
+Creates a new C<Package::Stash> object, for the package given as the only
 argument.
 
 =cut
@@ -104,7 +104,7 @@ Adds a new package symbol, for the symbol given as C<$variable>, and optionally
 gives it an initial value of C<$value>. C<$variable> should be the name of
 variable including the sigil, so
 
-  Stash::Manip->new('Foo')->add_package_symbol('%foo')
+  Package::Stash->new('Foo')->add_package_symbol('%foo')
 
 will create C<%Foo::foo>.
 
@@ -345,8 +345,8 @@ sub list_all_package_symbols {
 No known bugs.
 
 Please report any bugs through RT: email
-C<bug-stash-manip at rt.cpan.org>, or browse to
-L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Stash-Manip>.
+C<bug-package-stash at rt.cpan.org>, or browse to
+L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Package-Stash>.
 
 =head1 SEE ALSO
 
@@ -357,7 +357,7 @@ live here
 
 You can find this documentation for this module with the perldoc command.
 
-    perldoc Stash::Manip
+    perldoc Package::Stash
 
 You can also look for information at:
 
@@ -365,19 +365,19 @@ You can also look for information at:
 
 =item * AnnoCPAN: Annotated CPAN documentation
 
-L<http://annocpan.org/dist/Stash-Manip>
+L<http://annocpan.org/dist/Package-Stash>
 
 =item * CPAN Ratings
 
-L<http://cpanratings.perl.org/d/Stash-Manip>
+L<http://cpanratings.perl.org/d/Package-Stash>
 
 =item * RT: CPAN's request tracker
 
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Stash-Manip>
+L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Package-Stash>
 
 =item * Search CPAN
 
-L<http://search.cpan.org/dist/Stash-Manip>
+L<http://search.cpan.org/dist/Package-Stash>
 
 =back
 
diff --git a/t/000-load.t b/t/000-load.t
index 5b9dc25..0420fe7 100644
--- a/t/000-load.t
+++ b/t/000-load.t
@@ -4,5 +4,5 @@ use warnings;
 use Test::More tests => 1;
 
 package Foo;
-::use_ok('Stash::Manip')
-    or ::BAIL_OUT("couldn't load Stash::Manip");
+::use_ok('Package::Stash')
+    or ::BAIL_OUT("couldn't load Package::Stash");
diff --git a/t/001-basic.t b/t/001-basic.t
index b3cecfb..efd82b4 100644
--- a/t/001-basic.t
+++ b/t/001-basic.t
@@ -4,9 +4,9 @@ use warnings;
 use Test::More;
 use Test::Exception;
 
-use Stash::Manip;
+use Package::Stash;
 
-dies_ok { Stash::Manip->name } q{... can't call name() as a class method};
+dies_ok { Package::Stash->name } q{... can't call name() as a class method};
 
 {
     package Foo;
@@ -17,7 +17,7 @@ dies_ok { Stash::Manip->name } q{... can't call name() as a class method};
 # ----------------------------------------------------------------------
 ## tests adding a HASH
 
-my $foo_stash = Stash::Manip->new('Foo');
+my $foo_stash = Package::Stash->new('Foo');
 ok(!defined($Foo::{foo}), '... the %foo slot has not been created yet');
 ok(!$foo_stash->has_package_symbol('%foo'), '... the object agrees');
 ok(!defined($Foo::{foo}), '... checking doesn\' vivify');
@@ -258,11 +258,11 @@ dies_ok {
     our %foo = (baz => 1);
     sub foo { }
     open *foo, '<', $0;
-    BEGIN { Stash::Manip->new(__PACKAGE__)->remove_package_symbol('&foo') }
+    BEGIN { Package::Stash->new(__PACKAGE__)->remove_package_symbol('&foo') }
 }
 
 {
-    my $stash = Stash::Manip->new('Baz');
+    my $stash = Package::Stash->new('Baz');
     is(${ $stash->get_package_symbol('$foo') }, 23, "got \$foo");
     is_deeply($stash->get_package_symbol('@foo'), ['bar'], "got \@foo");
     is_deeply($stash->get_package_symbol('%foo'), {baz => 1}, "got \%foo");
diff --git a/t/002-extension.t b/t/002-extension.t
index 4a9e7c1..2f95f15 100644
--- a/t/002-extension.t
+++ b/t/002-extension.t
@@ -5,11 +5,11 @@ use Test::More;
 use Test::Exception;
 
 {
-    package My::Stash::Manip;
+    package My::Package::Stash;
     use strict;
     use warnings;
 
-    use base 'Stash::Manip';
+    use base 'Package::Stash';
 
     use Symbol 'gensym';
 
@@ -29,10 +29,10 @@ use Test::Exception;
 }
 
 # No actually package Foo exists :)
-my $foo_stash = My::Stash::Manip->new('Foo');
+my $foo_stash = My::Package::Stash->new('Foo');
 
-isa_ok($foo_stash, 'My::Stash::Manip');
-isa_ok($foo_stash, 'Stash::Manip');
+isa_ok($foo_stash, 'My::Package::Stash');
+isa_ok($foo_stash, 'Package::Stash');
 
 ok(!defined($Foo::{foo}), '... the %foo slot has not been created yet');
 ok(!$foo_stash->has_package_symbol('%foo'), '... the foo_stash agrees');
diff --git a/t/003-io.t b/t/003-io.t
index a41b2ae..43a7dd8 100644
--- a/t/003-io.t
+++ b/t/003-io.t
@@ -18,10 +18,10 @@ use Test::Exception;
     sub bar { }
 }
 
-use Stash::Manip;
+use Package::Stash;
 
 {
-    my $stash = Stash::Manip->new('Foo');
+    my $stash = Package::Stash->new('Foo');
     ok($stash->has_package_symbol('&foo'), "has &foo");
     ok($stash->has_package_symbol('foo'), "has foo");
     $stash->remove_package_symbol('&foo');
@@ -30,7 +30,7 @@ use Stash::Manip;
 }
 
 {
-    my $stash = Stash::Manip->new('Bar');
+    my $stash = Package::Stash->new('Bar');
     ok($stash->has_package_symbol('&bar'), "has &bar");
     ok($stash->has_package_symbol('bar'), "has bar");
     $stash->remove_package_symbol('bar');
@@ -39,7 +39,7 @@ use Stash::Manip;
 }
 
 {
-    my $stash = Stash::Manip->new('Baz');
+    my $stash = Package::Stash->new('Baz');
     lives_ok {
         $stash->add_package_symbol('baz', *Foo::foo{IO});
     } "can add an IO symbol";
diff --git a/t/004-get.t b/t/004-get.t
index c38ae65..15e252f 100644
--- a/t/004-get.t
+++ b/t/004-get.t
@@ -3,10 +3,10 @@ use strict;
 use warnings;
 use Test::More;
 
-use Stash::Manip;
+use Package::Stash;
 
 {
-    my $stash = Stash::Manip->new('Foo');
+    my $stash = Package::Stash->new('Foo');
     my $val = $stash->get_package_symbol('%foo');
     is(ref($val), 'HASH', "got something");
     $val->{bar} = 1;
@@ -15,7 +15,7 @@ use Stash::Manip;
 }
 
 {
-    my $stash = Stash::Manip->new('Bar');
+    my $stash = Package::Stash->new('Bar');
     my $val = $stash->get_package_symbol('@foo');
     is(ref($val), 'ARRAY', "got something");
     push @$val, 1;
diff --git a/t/005-isa.t b/t/005-isa.t
index d21c7a7..3198fb1 100644
--- a/t/005-isa.t
+++ b/t/005-isa.t
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Test::More;
 
-use Stash::Manip;
+use Package::Stash;
 
 {
     package Foo;
@@ -13,7 +13,7 @@ use Stash::Manip;
     package Bar;
 }
 
-my $stash = Stash::Manip->new('Foo');
+my $stash = Package::Stash->new('Foo');
 my @ISA = ('Bar');
 @{$stash->get_package_symbol('@ISA')} = @ISA;
 isa_ok('Foo', 'Bar');
diff --git a/t/010-synopsis.t b/t/010-synopsis.t
index 5d29573..4c93f32 100644
--- a/t/010-synopsis.t
+++ b/t/010-synopsis.t
@@ -3,9 +3,9 @@ use strict;
 use warnings;
 use Test::More;
 
-use Stash::Manip;
+use Package::Stash;
 
-my $stash = Stash::Manip->new('Foo');
+my $stash = Package::Stash->new('Foo');
 $stash->add_package_symbol('%foo', {bar => 1});
 {
     no warnings 'once';