From 71b53a8af48145d2388ccba6f688a5f0dcb772df Mon Sep 17 00:00:00 2001 From: Florian Ragwitz Date: Sun, 9 Nov 2008 05:16:41 +0100 Subject: [PATCH] Rename to signatures. --- .gitignore | 8 ++++---- MANIFEST.SKIP | 2 +- Makefile.PL | 10 +++++----- lib/{Sub/Signature.pm => signatures.pm} | 6 +++--- Signature.xs => signatures.xs | 2 +- t/anon.t | 2 +- t/basic.t | 2 +- t/eval.t | 6 +++--- t/proto.t | 2 +- t/subclass.t | 4 ++-- t/warnings.t | 10 +++++----- t/weird.t | 2 +- 12 files changed, 28 insertions(+), 28 deletions(-) rename lib/{Sub/Signature.pm => signatures.pm} (97%) rename Signature.xs => signatures.xs (99%) diff --git a/.gitignore b/.gitignore index bd79c0a..3d54090 100644 --- a/.gitignore +++ b/.gitignore @@ -1,8 +1,8 @@ .* !.gitignore -Signature.* -!Signature.xs -!Signature.pm +signatures.* +!signatures.xs +!signatures.pm Makefile* !Makefile.PL META.yml @@ -14,4 +14,4 @@ MANIFEST* !MANIFEST.SKIP Debian* README -Sub-Signature-* +signatures-* diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP index 1c869ae..4f3cbc8 100644 --- a/MANIFEST.SKIP +++ b/MANIFEST.SKIP @@ -5,4 +5,4 @@ blib\b ^Makefile$ ^Makefile.old$ ^Debian -^Sub-Signature- +^signature- diff --git a/Makefile.PL b/Makefile.PL index f4ab94a..1be5afd 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -3,8 +3,8 @@ use warnings; use inc::Module::Install; use ExtUtils::Depends; -name 'Sub-Signature'; -all_from 'lib/Sub/Signature.pm'; +name 'signatures'; +all_from 'lib/signatures.pm'; requires 'B::Hooks::OP::Check' => '0.11'; requires 'B::Hooks::Parser' => '0.06'; @@ -16,9 +16,9 @@ configure_requires 'ExtUtils::Depends'; configure_requires 'B::Hooks::OP::Check' => '0.11'; configure_requires 'B::Hooks::Parser' => '0.06'; -my $pkg = ExtUtils::Depends->new('Sub::Signature', 'B::Hooks::OP::Check', 'B::Hooks::Parser'); -$pkg->add_xs('Signature.xs'); -$pkg->add_pm('lib/Sub/Signature.pm' => '$(INST_LIB)/Sub/Signature.pm'); +my $pkg = ExtUtils::Depends->new('signatures', 'B::Hooks::OP::Check', 'B::Hooks::Parser'); +$pkg->add_xs('signatures.xs'); +$pkg->add_pm('lib/signatures.pm' => '$(INST_LIB)/signatures.pm'); makemaker_args($pkg->get_makefile_vars); diff --git a/lib/Sub/Signature.pm b/lib/signatures.pm similarity index 97% rename from lib/Sub/Signature.pm rename to lib/signatures.pm index 125bc98..97a9945 100644 --- a/lib/Sub/Signature.pm +++ b/lib/signatures.pm @@ -1,7 +1,7 @@ use strict; use warnings; -package Sub::Signature; +package signatures; use XSLoader; use B::Hooks::Parser; @@ -93,11 +93,11 @@ __END__ =head1 NAME -Sub::Signature - subroutine signatures with no source filter +signatures - subroutine signatures with no source filter =head1 SYNOPSIS - use Sub::Signature; + use signatures; sub foo ($bar, $baz) { return $bar + $baz; diff --git a/Signature.xs b/signatures.xs similarity index 99% rename from Signature.xs rename to signatures.xs index 6f8869b..2beaa75 100644 --- a/Signature.xs +++ b/signatures.xs @@ -296,7 +296,7 @@ handle_eval (pTHX_ OP *op, void *user_data) { return op; } -MODULE = Sub::Signature PACKAGE = Sub::Signature +MODULE = signatures PACKAGE = signatures PROTOTYPES: DISABLE diff --git a/t/anon.t b/t/anon.t index e6e3fa5..dae37a9 100644 --- a/t/anon.t +++ b/t/anon.t @@ -2,7 +2,7 @@ use strict; use warnings; use Test::More tests => 1; -use Sub::Signature; +use signatures; my $foo = sub ($bar, $baz) { return "${bar}-${baz}" }; diff --git a/t/basic.t b/t/basic.t index 649f5fb..8f7997b 100644 --- a/t/basic.t +++ b/t/basic.t @@ -2,7 +2,7 @@ use strict; use warnings; use Test::More tests => 5; -use Sub::Signature; +use signatures; sub foo ($bar) { $bar } diff --git a/t/eval.t b/t/eval.t index 87412fa..1bc32bc 100644 --- a/t/eval.t +++ b/t/eval.t @@ -2,7 +2,7 @@ use strict; use warnings; use Test::More tests => 8; -use Sub::Signature; +use signatures; eval 'sub foo ($bar) { $bar }'; ok(!$@, 'signatures parse in eval'); @@ -10,14 +10,14 @@ diag $@ if $@; ok(\&foo, 'sub declared in eval'); is(foo(42), 42, 'eval signature works'); -no Sub::Signature; +no signatures; $SIG{__WARN__} = sub {}; eval 'sub bar ($baz) { $baz }'; like($@, qr/requires explicit package name/, 'string eval disabled'); { - use Sub::Signature; + use signatures; eval 'sub bar ($baz) { $baz }'; ok(!$@, 'signatures parse in eval'); diff --git a/t/proto.t b/t/proto.t index 3e22252..b1ac258 100644 --- a/t/proto.t +++ b/t/proto.t @@ -7,7 +7,7 @@ BEGIN { $SIG{__WARN__} = sub { push @warnings, @_ } } BEGIN { is(@warnings, 0, 'no warnings yet') } -use Sub::Signature; +use signatures; sub with_proto ($x, $y, $z) : proto($$$) { return $x + $y + $z; diff --git a/t/subclass.t b/t/subclass.t index 8bc5547..3805306 100644 --- a/t/subclass.t +++ b/t/subclass.t @@ -5,9 +5,9 @@ use Test::More tests => 1; { package CustomSignature; - use base qw/Sub::Signature/; + use base qw/signatures/; - use Sub::Signature; + use signatures; sub proto_unwrap ($class, $prototype) { return "my (\$prototype) = '$prototype';"; diff --git a/t/warnings.t b/t/warnings.t index bf03024..f772d08 100644 --- a/t/warnings.t +++ b/t/warnings.t @@ -7,23 +7,23 @@ use vars qw/@warnings/; BEGIN { $SIG{__WARN__} = sub { push @warnings, $_ } } { - use Sub::Signature; + use signatures; sub foo ($x) { } } -BEGIN { is(@warnings, 0, 'no prototype warnings with Sub::Signature in scope') } +BEGIN { is(@warnings, 0, 'no prototype warnings with signatures in scope') } sub bar ($x) { } -BEGIN { is(@warnings, 1, 'warning without Sub::Signature in scope') } +BEGIN { is(@warnings, 1, 'warning without signatures in scope') } -use Sub::Signature; +use signatures; sub baz ($x) { } BEGIN { is(@warnings, 1, 'no more warnings') } -no Sub::Signature; +no signatures; sub corge ($x) { } diff --git a/t/weird.t b/t/weird.t index efb4b92..2e30c29 100644 --- a/t/weird.t +++ b/t/weird.t @@ -2,7 +2,7 @@ use strict; use warnings; use Test::More tests => 2; -use Sub::Signature; +use signatures; sub foo