From 988beb418b12b8cc4821055d79361f807c98aa36 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 15 Jun 2010 19:11:16 -0500 Subject: [PATCH] updated dzil stuff --- .gitignore | 2 + Changes | 24 +++++---- dist.ini | 7 +-- lib/Package/Stash.pm | 78 +++++---------------------- t/000-load.t | 8 --- t/{001-basic.t => 01-basic.t} | 0 t/{002-extension.t => 02-extension.t} | 0 t/{003-io.t => 03-io.t} | 0 t/{004-get.t => 04-get.t} | 0 t/{005-isa.t => 05-isa.t} | 0 t/{006-addsub.t => 06-addsub.t} | 0 t/{010-synopsis.t => 10-synopsis.t} | 0 weaver.ini | 37 +++++++++++++ 13 files changed, 69 insertions(+), 87 deletions(-) delete mode 100644 t/000-load.t rename t/{001-basic.t => 01-basic.t} (100%) rename t/{002-extension.t => 02-extension.t} (100%) rename t/{003-io.t => 03-io.t} (100%) rename t/{004-get.t => 04-get.t} (100%) rename t/{005-isa.t => 05-isa.t} (100%) rename t/{006-addsub.t => 06-addsub.t} (100%) rename t/{010-synopsis.t => 10-synopsis.t} (100%) create mode 100644 weaver.ini diff --git a/.gitignore b/.gitignore index c38068c..a2bd8da 100644 --- a/.gitignore +++ b/.gitignore @@ -9,3 +9,5 @@ Makefile.old nytprof.out MANIFEST.bak *.sw[po] +.build +Package-Stash-* diff --git a/Changes b/Changes index ae17172..5844fde 100644 --- a/Changes +++ b/Changes @@ -1,16 +1,18 @@ -Revision history for Package::Stash +Revision history for Package-Stash -0.04 2010-06-13 - get_package_symbol now doesn't autovivify stash entries. A new method - get_or_add_package_symbol can now be used for that behavior. +{{$NEXT}} - Update %DB::sub on add_package_symbol (Tim Bunce). +0.04 2010-06-13 + - get_package_symbol now doesn't autovivify stash entries. A new method + get_or_add_package_symbol can now be used for that behavior. -0.03 2010-05-14 - Rename from Stash::Manip to Package::Stash + - Update %DB::sub on add_package_symbol (Tim Bunce). -0.02 2010-05-13 - Need to dep on Test::Exception +0.03 2010-05-14 + - Rename from Stash::Manip to Package::Stash -0.01 2010-05-12 - Initial release +0.02 2010-05-13 + - Need to dep on Test::Exception + +0.01 2010-05-12 + - Initial release diff --git a/dist.ini b/dist.ini index aad335c..f4aed77 100644 --- a/dist.ini +++ b/dist.ini @@ -1,13 +1,14 @@ name = Package-Stash -version = 0.04 author = Jesse Luehrs license = Perl_5 copyright_holder = Jesse Luehrs -abstract = routines for manipulating stashes -[@Classic] +[@DOY] +dist = Package-Stash [Prereq] Scalar::Util = 0 + +[Prereq / TestRequires] Test::Exception = 0 Test::More = 0.88 diff --git a/lib/Package/Stash.pm b/lib/Package/Stash.pm index 6396ed5..ddc158b 100644 --- a/lib/Package/Stash.pm +++ b/lib/Package/Stash.pm @@ -1,14 +1,11 @@ package Package::Stash; use strict; use warnings; +# ABSTRACT: routines for manipulating stashes use Carp qw(confess); use Scalar::Util qw(reftype); -=head1 NAME - -Package::Stash - routines for manipulating stashes - =head1 SYNOPSIS my $stash = Package::Stash->new('Foo'); @@ -27,11 +24,7 @@ simple API. NOTE: Most methods in this class require a variable specification that includes a sigil. If this sigil is absent, it is assumed to represent the IO slot. -=head1 METHODS - -=cut - -=head2 new $package_name +=method new $package_name Creates a new C object, for the package given as the only argument. @@ -44,7 +37,7 @@ sub new { return bless { 'package' => $namespace }, $class; } -=head2 name +=method name Returns the name of the package that this object represents. @@ -54,7 +47,7 @@ sub name { return $_[0]->{package}; } -=head2 namespace +=method namespace Returns the raw stash itself. @@ -98,7 +91,7 @@ sub namespace { } } -=head2 add_package_symbol $variable $value %opts +=method add_package_symbol $variable $value %opts 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 @@ -172,7 +165,7 @@ sub add_package_symbol { *{$pkg . '::' . $name} = ref $initial_value ? $initial_value : \$initial_value; } -=head2 remove_package_glob $name +=method remove_package_glob $name Removes all package variables with the given name, regardless of sigil. @@ -186,7 +179,7 @@ sub remove_package_glob { # ... these functions deal with stuff on the namespace level -=head2 has_package_symbol $variable +=method has_package_symbol $variable Returns whether or not the given package variable (including sigil) exists. @@ -219,7 +212,7 @@ sub has_package_symbol { } } -=head2 get_package_symbol $variable +=method get_package_symbol $variable Returns the value of the given package variable (including sigil). @@ -269,7 +262,7 @@ sub get_package_symbol { } } -=head2 get_or_add_package_symbol $variable +=method get_or_add_package_symbol $variable Like C, except that it will return an empty hashref or arrayref if the variable doesn't exist. @@ -281,7 +274,7 @@ sub get_or_add_package_symbol { $self->get_package_symbol(@_, vivify => 1); } -=head2 remove_package_symbol $variable +=method remove_package_symbol $variable Removes the package variable described by C<$variable> (which includes the sigil); other variables with the same name but different sigils will be @@ -352,7 +345,7 @@ sub remove_package_symbol { $self->add_package_symbol($io_desc => $io) if defined $io; } -=head2 list_all_package_symbols $type_filter +=method list_all_package_symbols $type_filter Returns a list of package variable names in the package, without sigils. If a C is passed, it is used to select package variables of a given @@ -382,61 +375,16 @@ sub list_all_package_symbols { } } -=head1 BUGS - -No known bugs. - -Please report any bugs through RT: email -C, or browse to -L. - =head1 SEE ALSO -L - this module is a factoring out of code that used to -live here - -=head1 SUPPORT - -You can find this documentation for this module with the perldoc command. - - perldoc Package::Stash - -You can also look for information at: - =over 4 -=item * AnnoCPAN: Annotated CPAN documentation +=item * L -L - -=item * CPAN Ratings - -L - -=item * RT: CPAN's request tracker - -L - -=item * Search CPAN - -L +This module is a factoring out of code that used to live here =back -=head1 AUTHOR - - Jesse Luehrs - -Mostly copied from code from L, by Stevan Little and the -Moose Cabal. - -=head1 COPYRIGHT AND LICENSE - -This software is copyright (c) 2010 by Jesse Luehrs. - -This is free software; you can redistribute it and/or modify it under -the same terms as perl itself. - =cut 1; diff --git a/t/000-load.t b/t/000-load.t deleted file mode 100644 index 0420fe7..0000000 --- a/t/000-load.t +++ /dev/null @@ -1,8 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More tests => 1; - -package Foo; -::use_ok('Package::Stash') - or ::BAIL_OUT("couldn't load Package::Stash"); diff --git a/t/001-basic.t b/t/01-basic.t similarity index 100% rename from t/001-basic.t rename to t/01-basic.t diff --git a/t/002-extension.t b/t/02-extension.t similarity index 100% rename from t/002-extension.t rename to t/02-extension.t diff --git a/t/003-io.t b/t/03-io.t similarity index 100% rename from t/003-io.t rename to t/03-io.t diff --git a/t/004-get.t b/t/04-get.t similarity index 100% rename from t/004-get.t rename to t/04-get.t diff --git a/t/005-isa.t b/t/05-isa.t similarity index 100% rename from t/005-isa.t rename to t/05-isa.t diff --git a/t/006-addsub.t b/t/06-addsub.t similarity index 100% rename from t/006-addsub.t rename to t/06-addsub.t diff --git a/t/010-synopsis.t b/t/10-synopsis.t similarity index 100% rename from t/010-synopsis.t rename to t/10-synopsis.t diff --git a/weaver.ini b/weaver.ini new file mode 100644 index 0000000..31f851b --- /dev/null +++ b/weaver.ini @@ -0,0 +1,37 @@ +[@CorePrep] + +[Name] +[Version] + +[Region / prelude] + +[Generic / SYNOPSIS] +[Generic / DESCRIPTION] +[Generic / OVERVIEW] + +[Collect / ATTRIBUTES] +command = attr + +[Collect / METHODS] +command = method + +[Collect / FUNCTIONS] +command = func + +[Leftovers] + +[Region / postlude] + +[Template / BUGS] +template = ~/.dzil/pod_templates/bugs.section +main_module_only = 1 + +[Generic / SEEALSO] +header = SEE ALSO + +[Template / SUPPORT] +template = ~/.dzil/pod_templates/support.section +main_module_only = 1 + +[Authors] +[Legal]