diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-05-14 11:39:56 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-05-14 11:39:56 -0500 |
commit | e94260dab724974551751dbdda9c4c9abde76e6e (patch) | |
tree | 88a993f72d4586684f08c9569b036ed8ea0ad7e6 | |
parent | 4950f5513d1552328128c0a90824ab9074995cd8 (diff) | |
download | package-stash-xs-e94260dab724974551751dbdda9c4c9abde76e6e.tar.gz package-stash-xs-e94260dab724974551751dbdda9c4c9abde76e6e.zip |
rename Stash::Manip -> Package::Stash
-rw-r--r-- | Changes | 2 | ||||
-rw-r--r-- | dist.ini | 2 | ||||
-rw-r--r-- | lib/Package/Stash.pm (renamed from lib/Stash/Manip.pm) | 24 | ||||
-rw-r--r-- | t/000-load.t | 4 | ||||
-rw-r--r-- | t/001-basic.t | 10 | ||||
-rw-r--r-- | t/002-extension.t | 10 | ||||
-rw-r--r-- | t/003-io.t | 8 | ||||
-rw-r--r-- | t/004-get.t | 6 | ||||
-rw-r--r-- | t/005-isa.t | 4 | ||||
-rw-r--r-- | t/010-synopsis.t | 4 |
10 files changed, 37 insertions, 37 deletions
@@ -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 @@ -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 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'); @@ -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'; |