r35642 - in /branches/upstream/libaliased-perl: ./ current/ current/lib/ current/t/ current/t/lib/ current/t/lib/Really/ current/t/lib/Really/Long/ current/t/lib/Really/Long/Module/ current/t/lib/Really/Long/Module/Conflicting/
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Tue May 19 00:01:17 UTC 2009
Author: ryan52-guest
Date: Tue May 19 00:00:55 2009
New Revision: 35642
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35642
Log:
[svn-inject] Installing original source of libaliased-perl
Added:
branches/upstream/libaliased-perl/
branches/upstream/libaliased-perl/current/
branches/upstream/libaliased-perl/current/Build.PL
branches/upstream/libaliased-perl/current/Changes
branches/upstream/libaliased-perl/current/MANIFEST
branches/upstream/libaliased-perl/current/META.yml
branches/upstream/libaliased-perl/current/Makefile.PL
branches/upstream/libaliased-perl/current/README
branches/upstream/libaliased-perl/current/lib/
branches/upstream/libaliased-perl/current/lib/aliased.pm
branches/upstream/libaliased-perl/current/t/
branches/upstream/libaliased-perl/current/t/10aliased.t
branches/upstream/libaliased-perl/current/t/20import.t
branches/upstream/libaliased-perl/current/t/30sigdie.t
branches/upstream/libaliased-perl/current/t/lib/
branches/upstream/libaliased-perl/current/t/lib/BadSigDie.pm
branches/upstream/libaliased-perl/current/t/lib/HasSigDie.pm
branches/upstream/libaliased-perl/current/t/lib/NoSigDie.pm
branches/upstream/libaliased-perl/current/t/lib/Really/
branches/upstream/libaliased-perl/current/t/lib/Really/Long/
branches/upstream/libaliased-perl/current/t/lib/Really/Long/Module/
branches/upstream/libaliased-perl/current/t/lib/Really/Long/Module/Conflicting/
branches/upstream/libaliased-perl/current/t/lib/Really/Long/Module/Conflicting/Name.pm
branches/upstream/libaliased-perl/current/t/lib/Really/Long/Module/Name.pm
branches/upstream/libaliased-perl/current/t/lib/Really/Long/Name.pm
branches/upstream/libaliased-perl/current/t/lib/Really/Long/PackageName.pm
branches/upstream/libaliased-perl/current/t/pod-coverage.t
branches/upstream/libaliased-perl/current/t/pod.t
Added: branches/upstream/libaliased-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/Build.PL?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/Build.PL (added)
+++ branches/upstream/libaliased-perl/current/Build.PL Tue May 19 00:00:55 2009
@@ -1,0 +1,17 @@
+use strict;
+use warnings;
+use Module::Build;
+
+my $builder = Module::Build->new(
+ module_name => 'aliased',
+ license => 'perl',
+ dist_author => 'Curtis "Ovid" Poe <ovid at cpan.org>',
+ dist_version_from => 'lib/aliased.pm',
+ perl => 5.006,
+ requires => {
+ 'Test::More' => 0,
+ },
+ add_to_cleanup => [ 'aliased-*' ],
+);
+
+$builder->create_build_script();
Added: branches/upstream/libaliased-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/Changes?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/Changes (added)
+++ branches/upstream/libaliased-perl/current/Changes Tue May 19 00:00:55 2009
@@ -1,0 +1,16 @@
+Revision history for Perl extension aliased.
+
+0.21 12 February, 2008
+ Preserve $SIG{__DIE__} behavior just as if aliased had not been used.
+
+0.21 29 March, 2007
+ Applied $SIG{__DIE__} patch from Schwern and tightened up the test.
+
+0.12 23 August, 2005
+ Add pod and pod coverage tests
+ Added patch from Schwern to allow aliasing to a scalar
+
+0.10 Wed Jan 5
+ Changed name to 'aka' due to general consensus on the
+ module-authors list.
+
Added: branches/upstream/libaliased-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/MANIFEST?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/MANIFEST (added)
+++ branches/upstream/libaliased-perl/current/MANIFEST Tue May 19 00:00:55 2009
@@ -1,0 +1,19 @@
+Build.PL
+Changes
+lib/aliased.pm
+Makefile.PL
+MANIFEST
+META.yml Module meta-data (added by MakeMaker)
+README
+t/10aliased.t
+t/20import.t
+t/30sigdie.t
+t/lib/BadSigDie.pm
+t/lib/HasSigDie.pm
+t/lib/NoSigDie.pm
+t/lib/Really/Long/Module/Conflicting/Name.pm
+t/lib/Really/Long/Module/Name.pm
+t/lib/Really/Long/Name.pm
+t/lib/Really/Long/PackageName.pm
+t/pod-coverage.t
+t/pod.t
Added: branches/upstream/libaliased-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/META.yml?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/META.yml (added)
+++ branches/upstream/libaliased-perl/current/META.yml Tue May 19 00:00:55 2009
@@ -1,0 +1,19 @@
+---
+name: aliased
+version: 0.22
+author:
+ - 'Curtis "Ovid" Poe <ovid at cpan.org>'
+abstract: Use shorter versions of class names.
+license: perl
+resources:
+ license: http://dev.perl.org/licenses/
+requires:
+ Test::More: 0
+provides:
+ aliased:
+ file: lib/aliased.pm
+ version: 0.22
+generated_by: Module::Build version 0.2808
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
Added: branches/upstream/libaliased-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/Makefile.PL?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/Makefile.PL (added)
+++ branches/upstream/libaliased-perl/current/Makefile.PL Tue May 19 00:00:55 2009
@@ -1,0 +1,21 @@
+# Note: this file was auto-generated by Module::Build::Compat version 0.03
+use ExtUtils::MakeMaker;
+
+eval "use 5.006";
+if (my $error = $@) {
+ warn $error;
+ exit 0;
+}
+
+WriteMakefile
+(
+ 'PL_FILES' => {},
+ 'INSTALLDIRS' => 'site',
+ 'NAME' => 'aliased',
+ 'EXE_FILES' => [],
+ 'VERSION_FROM' => 'lib/aliased.pm',
+ 'PREREQ_PM' => {
+ 'Test::More' => 0
+ }
+ )
+;
Added: branches/upstream/libaliased-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/README?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/README (added)
+++ branches/upstream/libaliased-perl/current/README Tue May 19 00:00:55 2009
@@ -1,0 +1,25 @@
+aliased version 0.21
+==================
+
+INSTALLATION
+
+To install this module type the following:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+DEPENDENCIES
+
+This module requires these other modules and libraries:
+
+ Test::Simple 0.50
+
+COPYRIGHT AND LICENCE
+
+Copyright (C) 2005 by Curtis Poe
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.8.5 or,
+at your option, any later version of Perl 5 you may have available.
Added: branches/upstream/libaliased-perl/current/lib/aliased.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/lib/aliased.pm?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/lib/aliased.pm (added)
+++ branches/upstream/libaliased-perl/current/lib/aliased.pm Tue May 19 00:00:55 2009
@@ -1,0 +1,282 @@
+package aliased;
+$VERSION = '0.22';
+
+require Exporter;
+ at ISA = qw(Exporter);
+ at EXPORT = qw(alias);
+
+use strict;
+
+sub import {
+ my ( $class, $package, $alias, @import ) = @_;
+
+ if ( @_ <= 1 ) {
+ $class->export_to_level(1);
+ return;
+ }
+
+ my $callpack = caller(0);
+
+ _load_alias( $package, $callpack, @import );
+ _make_alias( $package, $callpack, $alias );
+}
+
+sub _get_alias {
+ my $package = shift;
+ $package =~ s/.*(?:::|')//;
+ return $package;
+}
+
+sub _make_alias {
+ my ( $package, $callpack, $alias ) = @_;
+
+ $alias ||= _get_alias($package);
+
+ local $SIG{__DIE__};
+ eval qq{
+ package $callpack;
+ sub $alias () { '$package' }
+ };
+ die $@ if $@;
+}
+
+sub _load_alias {
+ my ( $package, $callpack, @import ) = @_;
+
+ # We don't localize $SIG{__DIE__} here because we need to be careful about
+ # restoring its value if there is a failure. Very, very tricky.
+ my $sigdie = $SIG{__DIE__};
+ {
+ my $code = @import == 0
+ ? "package $callpack; use $package;"
+ : "package $callpack; use $package (\@import)";
+ eval $code;
+ if (my $error = $@) {
+ $SIG{__DIE__} = $sigdie;
+ die $error;
+ }
+ $sigdie = $SIG{__DIE__}
+ if defined $SIG{__DIE__};
+ }
+
+ # Make sure a global $SIG{__DIE__} makes it out of the localization.
+ $SIG{__DIE__} = $sigdie if defined $sigdie;
+}
+
+sub alias {
+ my ( $package, @import ) = @_;
+
+ my $callpack = scalar caller(0);
+ _load_alias( $package, $callpack, @import );
+
+ return $package;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+aliased - Use shorter versions of class names.
+
+=head1 SYNOPSIS
+
+ # Class name interface
+ use aliased 'My::Company::Namespace::Customer';
+ my $cust = Customer->new;
+
+ use aliased 'My::Company::Namespace::Preferred::Customer' => 'Preferred';
+ my $pref = Preferred->new;
+
+
+ # Variable interface
+ use aliased;
+ my $Customer = alias "My::Other::Namespace::Customer";
+ my $cust = $Customer->new;
+
+ my $Preferred = alias "My::Other::Namespace::Preferred::Customer";
+ my $pref = $Preferred->new;
+
+
+=head1 DESCRIPTION
+
+C<aliased> is simple in concept but is a rather handy module. It loads the
+class you specify and exports into your namespace a subroutine that returns
+the class name. You can explicitly alias the class to another name or, if you
+prefer, you can do so implicitly. In the latter case, the name of the
+subroutine is the last part of the class name. Thus, it does something
+similar to the following:
+
+ #use aliased 'Some::Annoyingly::Long::Module::Name::Customer';
+
+ use Some::Annoyingly::Long::Module::Name::Customer;
+ sub Customer {
+ return 'Some::Annoyingly::Long::Module::Name::Customer';
+ }
+ my $cust = Customer->new;
+
+This module is useful if you prefer a shorter name for a class. It's also
+handy if a class has been renamed.
+
+(Some may object to the term "aliasing" because we're not aliasing one
+namespace to another, but it's a handy term. Just keep in mind that this is
+done with a subroutine and not with typeglobs and weird namespace munging.)
+
+Note that this is B<only> for C<use>ing OO modules. You cannot use this to
+load procedural modules. See the L<Why OO Only?|Why OO Only?> section. Also,
+don't let the version number fool you. This code is ridiculously simple and
+is just fine for most use.
+
+=head2 Implicit Aliasing
+
+The most common use of this module is:
+
+ use aliased 'Some::Module::name';
+
+C<aliased> will allow you to reference the class by the last part of the
+class name. Thus, C<Really::Long::Name> becomes C<Name>. It does this by
+exporting a subroutine into your namespace with the same name as the aliased
+name. This subroutine returns the original class name.
+
+For example:
+
+ use aliased "Acme::Company::Customer";
+ my $cust = Customer->find($id);
+
+Note that any class method can be called on the shorter version of the class
+name, not just the constructor.
+
+=head2 Explicit Aliasing
+
+Sometimes two class names can cause a conflict (they both end with C<Customer>
+for example), or you already have a subroutine with the same name as the
+aliased name. In that case, you can make an explicit alias by stating the
+name you wish to alias to:
+
+ use aliased 'Original::Module::Name' => 'NewName';
+
+Here's how we use C<aliased> to avoid conflicts:
+
+ use aliased "Really::Long::Name";
+ use aliased "Another::Really::Long::Name" => "Aname";
+ my $name = Name->new;
+ my $aname = Aname->new;
+
+You can even alias to a different package:
+
+ use aliased "Another::Really::Long::Name" => "Another::Name";
+ my $aname = Another::Name->new;
+
+Messing around with different namespaces is a really bad idea and you probably
+don't want to do this. However, it might prove handy if the module you are
+using has been renamed. If the interface has not changed, this allows you to
+use the new module by only changing one line of code.
+
+ use aliased "New::Module::Name" => "Old::Module::Name";
+ my $thing = Old::Module::Name->new;
+
+=head2 Import Lists
+
+Sometimes, even with an OO module, you need to specify extra arguments when
+using the module. When this happens, simply use L<Explicit Aliasing> followed
+by the import list:
+
+Snippet 1:
+
+ use Some::Module::Name qw/foo bar/;
+ my $o = Some::Module::Name->some_class_method;
+
+Snippet 2 (equivalent to snippet 1):
+
+ use aliased 'Some::Module::Name' => 'Name', qw/foo bar/;
+ my $o = Name->some_class_method;
+
+B<Note>: remember, you cannot use import lists with L<Implicit Aliasing>. As
+a result, you may simply prefer to only use L<Explicit Aliasing> as a matter
+of style.
+
+=head2 alias()
+
+ my $alias = alias($class);
+ my $alias = alias($class, @imports);
+
+alias() is an alternative to C<use aliased ...> which uses less magic and
+avoids some of the ambiguities.
+
+Like C<use aliased> it C<use>s the $class (pass in @imports, if given) but
+instead of providing an C<Alias> constant it simply returns a scalar set to
+the $class name.
+
+ my $thing = alias("Some::Thing::With::A::Long::Name");
+
+ # Just like Some::Thing::With::A::Long::Name->method
+ $thing->method;
+
+The use of a scalar instead of a constant avoids any possible ambiguity
+when aliasing two similar names:
+
+ # No ambiguity despite the fact that they both end with "Name"
+ my $thing = alias("Some::Thing::With::A::Long::Name");
+ my $other = alias("Some::Other::Thing::With::A::Long::Name");
+
+and there is no magic constant exported into your namespace.
+
+The only caveat is loading of the $class happens at run time. If $class
+exports anything you might want to ensure it is loaded at compile time with:
+
+ my $thing;
+ BEGIN { $thing = alias("Some::Thing"); }
+
+However, since OO classes rarely export this should not be necessary.
+
+
+=head2 Why OO Only?
+
+Some people have asked why this code only support object-oriented modules
+(OO). If I were to support normal subroutines, I would have to allow the
+following syntax:
+
+ use aliased 'Some::Really::Long::Module::Name';
+ my $data = Name::data();
+
+That causes a serious problem. The only (reasonable) way it can be done is to
+handle the aliasing via typeglobs. Thus, instead of a subroutine that
+provides the class name, we alias one package to another (as the
+L<namespace|namespace> module does.) However, we really don't want to simply
+alias one package to another and wipe out namespaces willy-nilly. By merely
+exporting a single subroutine to a namespace, we minimize the issue.
+
+Fortunately, this doesn't seem to be that much of a problem. Non-OO modules
+generally support exporting of the functions you need and this eliminates the
+need for a module such as this.
+
+=head1 EXPORT
+
+This modules exports a subroutine with the same name as the "aliased" name.
+
+=head1 BUGS
+
+There are no known bugs in this module, but feel free to email me reports.
+
+=head1 SEE ALSO
+
+The L<namespace> module.
+
+=head1 THANKS
+
+Many thanks to Rentrak, Inc. (http://www.rentrak.com/) for graciously allowing
+me to replicate the functionality of some of their internal code.
+
+=head1 AUTHOR
+
+Curtis Poe, C<< ovid [at] cpan [dot] org >>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2005 by Curtis "Ovid" Poe
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.8.5 or,
+at your option, any later version of Perl 5 you may have available.
+
+=cut
Added: branches/upstream/libaliased-perl/current/t/10aliased.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/t/10aliased.t?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/t/10aliased.t (added)
+++ branches/upstream/libaliased-perl/current/t/10aliased.t Tue May 19 00:00:55 2009
@@ -1,0 +1,48 @@
+#!/usr/bin/perl -w
+use warnings;
+use strict;
+
+use Test::More tests => 16;
+
+#use Test::More qw/no_plan/;
+
+BEGIN {
+ chdir 't' if -d 't';
+ unshift @INC => '../lib', 'lib/';
+ require_ok 'aliased' or die;
+ ok !defined &main::echo,
+ '... and exported functions should not (yet) be in our namespace';
+}
+
+ok !defined &alias, 'aliased() should not be exported by default';
+eval "use aliased";
+is $@, '', '... trying to use aliased without a package name should not fail';
+can_ok __PACKAGE__, 'alias';
+
+eval "use aliased 'No::Such::Module'";
+ok $@, 'Trying to use aliased with a module it cannot load should fail';
+like $@, qr{Can't locate No/Such/Module.pm in \@INC},
+ '... and it should have an appropriate error message';
+
+use aliased 'Really::Long::Module::Name';
+my $name = Name->new;
+isa_ok $name, 'Really::Long::Module::Name', '... and the object it returns';
+
+use aliased 'Really::Long::Module::Conflicting::Name' => 'C::Name', "echo";
+ok defined &main::echo, '... and import items should be handled correctly';
+is_deeply [ echo( [ 1, 2 ], 3 ) ], [ [ 1, 2 ], 3 ],
+ '... and exhibit the correct behavior';
+ok $name = C::Name->new,
+'We should be able to alias to different packages, even though that is really stupid';
+isa_ok $name, 'Really::Long::Module::Conflicting::Name',
+ '... and the object returned';
+
+use aliased 'Really::Long::PackageName' => 'PackageName', qw/foo bar baz/;
+
+ok defined &PackageName,
+ 'We should be able to pass an array ref as an import list';
+foreach my $method (qw/foo bar baz/) {
+ no strict 'refs';
+ is &$method, $method, '... and it should behave as expected';
+}
+
Added: branches/upstream/libaliased-perl/current/t/20import.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/t/20import.t?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/t/20import.t (added)
+++ branches/upstream/libaliased-perl/current/t/20import.t Tue May 19 00:00:55 2009
@@ -1,0 +1,25 @@
+#!/usr/bin/perl -w
+use warnings;
+use strict;
+
+use Test::More tests => 5;
+#use Test::More qw/no_plan/;
+
+BEGIN {
+ chdir 't' if -d 't';
+ unshift @INC => '../lib', 'lib/';
+ use_ok 'aliased' or die "Could not use aliased";
+}
+ok defined &alias, 'alias() should be imported into our namespace';
+
+ok my $alias = alias("Really::Long::Name"),
+ 'aliasing to a scalar should succeed';
+is $alias->thing(2), 4, '... and it should return the correct results';
+
+{
+
+ package Foo::Bar;
+ ::alias( "Really::Long::Module::Conflicting::Name", "echo" );
+ ::is_deeply [ echo("foo") ], ["foo"],
+ '... and it should still allow importing';
+}
Added: branches/upstream/libaliased-perl/current/t/30sigdie.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/t/30sigdie.t?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/t/30sigdie.t (added)
+++ branches/upstream/libaliased-perl/current/t/30sigdie.t Tue May 19 00:00:55 2009
@@ -1,0 +1,52 @@
+#!/usr/bin/perl -w
+use warnings;
+use strict;
+
+use lib "t/lib";
+
+BEGIN {
+ # Ensure nothing else has loaded a $SIG{__DIE__}
+ die if $SIG{__DIE__};
+}
+
+# Test::Builder might have a $SIG{__DIE__}, too so we
+# make sure it is effected by any aliased bug, too.
+use aliased "Test::More";
+use aliased "HasSigDie";
+
+plan(tests => 9);
+
+is ref $SIG{__DIE__}, "CODE",
+ '$SIG{__DIE__} handlers should not be destroyed';
+
+is $SIG{__DIE__}->(), 'whee!',
+ '... and should behave as expected';
+
+eval "use aliased 'BadSigDie'";
+is ref $SIG{__DIE__}, "CODE",
+ 'A bad load should not break $SIG{__DIE__} handlers';
+
+is $SIG{__DIE__}->(), 'whee!',
+ '... and they should retain their value';
+
+eval "use aliased 'NoSigDie'";
+is ref $SIG{__DIE__}, "CODE",
+ 'Loading code without sigdie handlers should succeed';
+
+is $SIG{__DIE__}->(), 'whee!',
+ '... and the sigdie handlers should retain their value';
+
+{
+ local $SIG{__DIE__};
+ delete $INC{'NoSigDie.pm'};
+ eval "use aliased 'NoSigDie' => 'NoSigDie2'";
+ ok ! ref $SIG{__DIE__},
+ 'Loading code without sigdie handlers should succeed';
+ delete $INC{'HasSigDie.pm'};
+ eval "use aliased 'HasSigDie' => 'HasSigDie2'";
+ is ref $SIG{__DIE__}, "CODE",
+ 'New $SIG{__DIE__} handlers should be loaded';
+
+ is $SIG{__DIE__}->(), 'whee!',
+ '... and should behave as expected';
+}
Added: branches/upstream/libaliased-perl/current/t/lib/BadSigDie.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/t/lib/BadSigDie.pm?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/t/lib/BadSigDie.pm (added)
+++ branches/upstream/libaliased-perl/current/t/lib/BadSigDie.pm Tue May 19 00:00:55 2009
@@ -1,0 +1,18 @@
+package BadSigDie;
+
+use strict;
+use warnings;
+
+# make sure this gets loaded before the compile
+BEGIN {
+ $SIG{__DIE__} = sub {
+ my $error = shift;
+ CORE::die($error) if $error =~ /syntax error/i;
+ return 'bad sig die';
+ };
+}
+
+# Unmatched right curly
+}
+
+1;
Added: branches/upstream/libaliased-perl/current/t/lib/HasSigDie.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/t/lib/HasSigDie.pm?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/t/lib/HasSigDie.pm (added)
+++ branches/upstream/libaliased-perl/current/t/lib/HasSigDie.pm Tue May 19 00:00:55 2009
@@ -1,0 +1,10 @@
+package HasSigDie;
+
+use strict;
+use warnings;
+
+BEGIN {
+ $SIG{__DIE__} = sub { return 'whee!' };
+}
+
+1;
Added: branches/upstream/libaliased-perl/current/t/lib/NoSigDie.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/t/lib/NoSigDie.pm?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/t/lib/NoSigDie.pm (added)
+++ branches/upstream/libaliased-perl/current/t/lib/NoSigDie.pm Tue May 19 00:00:55 2009
@@ -1,0 +1,6 @@
+package NoSigDie;
+
+use strict;
+use warnings;
+
+1;
Added: branches/upstream/libaliased-perl/current/t/lib/Really/Long/Module/Conflicting/Name.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/t/lib/Really/Long/Module/Conflicting/Name.pm?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/t/lib/Really/Long/Module/Conflicting/Name.pm (added)
+++ branches/upstream/libaliased-perl/current/t/lib/Really/Long/Module/Conflicting/Name.pm Tue May 19 00:00:55 2009
@@ -1,0 +1,14 @@
+package Really::Long::Module::Conflicting::Name;
+
+sub import {
+ my ($class, @args) = @_;
+ my $callpack = caller(0);
+ no strict 'refs';
+ *{"${callpack}::echo"} = sub { @_ } if $args[0] eq 'echo';
+}
+
+sub new { bless {} => shift }
+
+sub echo { @_ }
+
+1;
Added: branches/upstream/libaliased-perl/current/t/lib/Really/Long/Module/Name.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/t/lib/Really/Long/Module/Name.pm?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/t/lib/Really/Long/Module/Name.pm (added)
+++ branches/upstream/libaliased-perl/current/t/lib/Really/Long/Module/Name.pm Tue May 19 00:00:55 2009
@@ -1,0 +1,5 @@
+package Really::Long::Module::Name;
+
+sub new { bless {} => shift }
+
+1;
Added: branches/upstream/libaliased-perl/current/t/lib/Really/Long/Name.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/t/lib/Really/Long/Name.pm?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/t/lib/Really/Long/Name.pm (added)
+++ branches/upstream/libaliased-perl/current/t/lib/Really/Long/Name.pm Tue May 19 00:00:55 2009
@@ -1,0 +1,5 @@
+package Really::Long::Name;
+
+sub thing { return $_[1] + 2 }
+
+1;
Added: branches/upstream/libaliased-perl/current/t/lib/Really/Long/PackageName.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/t/lib/Really/Long/PackageName.pm?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/t/lib/Really/Long/PackageName.pm (added)
+++ branches/upstream/libaliased-perl/current/t/lib/Really/Long/PackageName.pm Tue May 19 00:00:55 2009
@@ -1,0 +1,11 @@
+package Really::Long::PackageName;
+
+sub import {
+ my ($class, @methods) = @_;
+ my $caller = caller(0);
+ foreach my $method (@methods) {
+ *{"${caller}::$method"} = sub { $method }
+ }
+}
+
+1;
Added: branches/upstream/libaliased-perl/current/t/pod-coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/t/pod-coverage.t?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/t/pod-coverage.t (added)
+++ branches/upstream/libaliased-perl/current/t/pod-coverage.t Tue May 19 00:00:55 2009
@@ -1,0 +1,7 @@
+#!perl -T
+
+use Test::More;
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
+all_pod_coverage_ok();
+
Added: branches/upstream/libaliased-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaliased-perl/current/t/pod.t?rev=35642&op=file
==============================================================================
--- branches/upstream/libaliased-perl/current/t/pod.t (added)
+++ branches/upstream/libaliased-perl/current/t/pod.t Tue May 19 00:00:55 2009
@@ -1,0 +1,6 @@
+#!perl -T
+
+use Test::More;
+eval "use Test::Pod 1.14";
+plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+all_pod_files_ok();
More information about the Pkg-perl-cvs-commits
mailing list