r46420 - in /branches/upstream/libacme-buffy-perl: ./ current/ current/examples/ current/lib/ current/lib/Acme/ current/t/
ryan at users.alioth.debian.org
ryan at users.alioth.debian.org
Mon Oct 26 23:49:20 UTC 2009
Author: ryan
Date: Mon Oct 26 23:49:15 2009
New Revision: 46420
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=46420
Log:
[svn-inject] Installing original source of libacme-buffy-perl
Added:
branches/upstream/libacme-buffy-perl/
branches/upstream/libacme-buffy-perl/current/
branches/upstream/libacme-buffy-perl/current/CHANGES
branches/upstream/libacme-buffy-perl/current/LICENSE
branches/upstream/libacme-buffy-perl/current/MANIFEST
branches/upstream/libacme-buffy-perl/current/META.yml
branches/upstream/libacme-buffy-perl/current/Makefile.PL
branches/upstream/libacme-buffy-perl/current/README
branches/upstream/libacme-buffy-perl/current/buffy (with props)
branches/upstream/libacme-buffy-perl/current/examples/
branches/upstream/libacme-buffy-perl/current/examples/demo_buffy.pl (with props)
branches/upstream/libacme-buffy-perl/current/examples/demo_simple.pl (with props)
branches/upstream/libacme-buffy-perl/current/lib/
branches/upstream/libacme-buffy-perl/current/lib/Acme/
branches/upstream/libacme-buffy-perl/current/lib/Acme/Buffy.pm (with props)
branches/upstream/libacme-buffy-perl/current/t/
branches/upstream/libacme-buffy-perl/current/t/buffy.t (with props)
branches/upstream/libacme-buffy-perl/current/t/critic.t
branches/upstream/libacme-buffy-perl/current/t/perlcriticrc
branches/upstream/libacme-buffy-perl/current/t/pod.t
branches/upstream/libacme-buffy-perl/current/t/pod_coverage.t
Added: branches/upstream/libacme-buffy-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/CHANGES?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/CHANGES (added)
+++ branches/upstream/libacme-buffy-perl/current/CHANGES Mon Oct 26 23:49:15 2009
@@ -1,0 +1,29 @@
+Revision history for Perl extension Buffy
+
+1.5 Sat Apr 28 15:56:29 CEST 2007
+ - perltidy
+ - move examples to examples directory
+ - code cleanups
+ - add META.yml and LICENSE
+ - perlcritic test
+
+1.4 Fri Sep 8 17:22:08 BST 2006
+ - fixed broken POD
+ - added POD test and POD coverage test
+ - updated MANIFEST to include META.yml
+ - made Makefile.PL unexecutable
+ - perltidy
+ - added 'use strict'. oh the irony
+
+1.3 Wed Mar 27 13:44:23 GMT 2002
+ - added extra newline 'cos CPAN wasn't finding the version
+
+1.2 Sun Aug 12 12:52:17 BST 2001
+ - merged in patch by Brian Ingerson which moved code
+ to an import subroutine
+
+1.1 Wed May 23 16:46:45 BST 2001
+ - Changed name to Acme::Buffy
+
+1.00 Sun Apr 1 13:20:37 BST 2001
+ - original version
Added: branches/upstream/libacme-buffy-perl/current/LICENSE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/LICENSE?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/LICENSE (added)
+++ branches/upstream/libacme-buffy-perl/current/LICENSE Mon Oct 26 23:49:15 2009
@@ -1,0 +1,2 @@
+You can use this module under the same terms as Perl itself.
+
Added: branches/upstream/libacme-buffy-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/MANIFEST?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/MANIFEST (added)
+++ branches/upstream/libacme-buffy-perl/current/MANIFEST Mon Oct 26 23:49:15 2009
@@ -1,0 +1,15 @@
+buffy
+CHANGES
+examples/demo_buffy.pl
+examples/demo_simple.pl
+lib/Acme/Buffy.pm
+LICENSE
+Makefile.PL
+MANIFEST
+README
+t/buffy.t
+t/critic.t
+t/perlcriticrc
+t/pod.t
+t/pod_coverage.t
+META.yml Module meta-data (added by MakeMaker)
Added: branches/upstream/libacme-buffy-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/META.yml?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/META.yml (added)
+++ branches/upstream/libacme-buffy-perl/current/META.yml Mon Oct 26 23:49:15 2009
@@ -1,0 +1,11 @@
+--- #YAML:1.0
+name: Acme-Buffy
+version: 1.5
+abstract: ~
+license: perl
+generated_by: ExtUtils::MakeMaker version 6.32
+distribution_type: module
+requires:
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
Added: branches/upstream/libacme-buffy-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/Makefile.PL?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/Makefile.PL (added)
+++ branches/upstream/libacme-buffy-perl/current/Makefile.PL Mon Oct 26 23:49:15 2009
@@ -1,0 +1,10 @@
+#!perl
+use strict;
+use warnings;
+use ExtUtils::MakeMaker;
+WriteMakefile(
+ NAME => 'Acme::Buffy',
+ VERSION_FROM => 'lib/Acme/Buffy.pm',
+ LICENSE => 'perl',
+);
+
Added: branches/upstream/libacme-buffy-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/README?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/README (added)
+++ branches/upstream/libacme-buffy-perl/current/README Mon Oct 26 23:49:15 2009
@@ -1,0 +1,39 @@
+NAME
+ Acme::Buffy - An encoding scheme for Buffy the Vampire Slayer fans
+
+SYNOPSIS
+ use Acme::Buffy;
+
+ print "Hello world";
+
+DESCRIPTION
+ The first time you run a program under "use Acme::Buffy", the module
+ removes most of the unsightly characters from your source file. The code
+ continues to work exactly as it did before, but now it looks like this:
+
+ use Acme::Buffy;
+ BUffY bUFFY BUffY bUFFY bUfFy buffy BUFfy buFFY BufFy BufFY bUFfy BuFFY buffy bufFy bUffy bUffY BuFfy BuffY bUFfy BUfFY BUFFy Buffy bUffY
+ BuFFY BUFFy BufFy BUFfy BUfFY buFfy BuffY BuFfy BUfFY bUffy buFFy BUffy bUffy
+
+DIAGNOSTICS
+ "Can't buffy '%s'"
+ Acme::Buffy could not access the source file to modify it.
+
+ "Can't rebuffy '%s'"
+ Acme::Buffy could not access the source file to execute it.
+
+AUTHOR
+ Leon Brocard <acme at astray.com>
+
+ This was based on Damian Conway's Bleach module and was inspired by an
+ idea by Philip Newton. I blame London Perl Mongers too...
+ http://www.mail-archive.com/london-pm%40lists.dircon.co.uk/msg03353.html
+
+ Yes, the namespace was named after me. Maybe.
+
+COPYRIGHT
+ Copyright (c) 2001, Leon Brocard. All Rights Reserved. This module is
+ free software. It may be used, redistributed and/or modified under the
+ terms of the Perl Artistic License (see
+ http://www.perl.com/perl/misc/Artistic.html)
+
Added: branches/upstream/libacme-buffy-perl/current/buffy
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/buffy?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/buffy (added)
+++ branches/upstream/libacme-buffy-perl/current/buffy Mon Oct 26 23:49:15 2009
@@ -1,0 +1,2 @@
+use Acme::Buffy;
+BUffY bUFFY BUffY bUFFY bUfFy buffy BUFfy buFFY BufFy BufFY bUFfy BuFFY buffy bufFy bUffy bUffY BuFfy BuffY bUFfy BUfFY BUFFy Buffy bUffY BuFFY BUFFy BufFy BUFfy BUfFY buFfy BuffY BuFfy BUfFY bUffy bufFy buffY bUffy bUFfy BuFFY bUFfy buFFY bufFy buFfy BUffy BUfFy bUFFy buFfY BUffY bUfFy BUfFY bufFy buff
Propchange: branches/upstream/libacme-buffy-perl/current/buffy
------------------------------------------------------------------------------
svn:executable =
Added: branches/upstream/libacme-buffy-perl/current/examples/demo_buffy.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/examples/demo_buffy.pl?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/examples/demo_buffy.pl (added)
+++ branches/upstream/libacme-buffy-perl/current/examples/demo_buffy.pl Mon Oct 26 23:49:15 2009
@@ -1,0 +1,4 @@
+#!perl
+use strict;
+use warnings;
+system "perl -MAcme::Buffy buffy";
Propchange: branches/upstream/libacme-buffy-perl/current/examples/demo_buffy.pl
------------------------------------------------------------------------------
svn:executable =
Added: branches/upstream/libacme-buffy-perl/current/examples/demo_simple.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/examples/demo_simple.pl?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/examples/demo_simple.pl (added)
+++ branches/upstream/libacme-buffy-perl/current/examples/demo_simple.pl Mon Oct 26 23:49:15 2009
@@ -1,0 +1,5 @@
+#!perl
+use strict;
+use warnings;
+use Acme::Buffy;
+BUffY bUFFY BUffY bUFFY bUfFy buffy BUFfy buFFY BufFy BufFY bUFfy BuFFY buffy bufFy bUffy bUffY BuFfy BuffY bUFfy BUfFY BUFFy Buffy bUffY BuFFY BUFFy BufFy BUFfy BUfFY buFfy BuffY BuFfy BUfFY bUffy bufFy buffY bUffy bUFfy BuFFY bUFfy buFFY bufFy buFfy BUffy BUfFy bUFFy buFfY BUffY bUfFy BUfFY bufFy buff
Propchange: branches/upstream/libacme-buffy-perl/current/examples/demo_simple.pl
------------------------------------------------------------------------------
svn:executable =
Added: branches/upstream/libacme-buffy-perl/current/lib/Acme/Buffy.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/lib/Acme/Buffy.pm?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/lib/Acme/Buffy.pm (added)
+++ branches/upstream/libacme-buffy-perl/current/lib/Acme/Buffy.pm Mon Oct 26 23:49:15 2009
@@ -1,0 +1,102 @@
+package Acme::Buffy;
+use strict;
+use warnings;
+our $VERSION = '1.5';
+
+my $horns = "BUffY bUFFY " x 2;
+my $i = 0;
+
+sub _slay {
+ my $willow = unpack "b*", pop;
+ my @buffy = ( 'b', 'u', 'f', 'f', 'y', ' ' );
+ my @BUFFY = ( 'B', 'U', 'F', 'F', 'Y', "\t" );
+ my $demons = $horns;
+ foreach ( split //, $willow ) {
+ $demons .= $_ ? $BUFFY[$i] : $buffy[$i];
+ $i++;
+ $i = 0 if $i > 5;
+ }
+ return $demons;
+}
+
+sub _unslay {
+ my $demons = pop;
+ $demons =~ s/^$horns//g;
+ my @willow;
+ foreach ( split //, $demons ) {
+ push @willow, /[buffy ]/ ? 0 : 1;
+ }
+ return pack "b*", join '', @willow;
+}
+
+sub _evil {
+ return $_[0] =~ /\S/;
+}
+
+sub _punch {
+ return $_[0] =~ /^$horns/;
+}
+
+sub import {
+ open 0 or print "Can't rebuffy '$0'\n" and exit;
+ ( my $demon = join "", <0> ) =~ s/.*^\s*use\s+Acme::Buffy\s*;\n//sm;
+ local $SIG{__WARN__} = \&evil;
+ do { eval _unslay $demon; exit }
+ unless _evil $demon and not _punch $demon;
+ open my $fh, ">$0" or print "Cannot buffy '$0'\n" and exit;
+ print $fh "use Acme::Buffy;\n", _slay $demon and exit;
+ print "use Acme::Buffy;\n", _slay $demon and exit;
+ return;
+}
+"Grrr, arrrgh";
+
+__END__
+
+=head1 NAME
+
+Acme::Buffy - An encoding scheme for Buffy the Vampire Slayer fans
+
+=head1 SYNOPSIS
+
+ use Acme::Buffy;
+
+ print "Hello world";
+
+=head1 DESCRIPTION
+
+The first time you run a program under C<use Acme::Buffy>, the module
+removes most of the unsightly characters from your source file. The
+code continues to work exactly as it did before, but now it looks like
+this:
+
+ use Acme::Buffy;
+ BUffY bUFFY BUffY bUFFY bUfFy buffy BUFfy buFFY BufFy BufFY bUFfy BuFFY buffy bufFy bUffy bUffY BuFfy BuffY bUFfy BUfFY BUFFy Buffy bUffY
+ BuFFY BUFFy BufFy BUFfy BUfFY buFfy BuffY BuFfy BUfFY bUffy buFFy BUffy bUffy
+
+=head1 DIAGNOSTICS
+
+=head2 C<Can't buffy '%s'>
+
+Acme::Buffy could not access the source file to modify it.
+
+=head2 C<Can't rebuffy '%s'>
+
+Acme::Buffy could not access the source file to execute it.
+
+=head1 AUTHOR
+
+Leon Brocard <acme at astray.com>
+
+This was based on Damian Conway's Bleach module and was inspired by an
+idea by Philip Newton. I blame London Perl Mongers too...
+http://www.mail-archive.com/london-pm%40lists.dircon.co.uk/msg03353.html
+
+Yes, the namespace B<was> named after me. Maybe.
+
+=head1 COPYRIGHT
+
+Copyright (c) 2001, Leon Brocard. All Rights Reserved. This module is
+free software. It may be used, redistributed and/or modified under the
+terms of the Perl Artistic License (see
+http://www.perl.com/perl/misc/Artistic.html)
+
Propchange: branches/upstream/libacme-buffy-perl/current/lib/Acme/Buffy.pm
------------------------------------------------------------------------------
svn:executable =
Added: branches/upstream/libacme-buffy-perl/current/t/buffy.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/t/buffy.t?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/t/buffy.t (added)
+++ branches/upstream/libacme-buffy-perl/current/t/buffy.t Mon Oct 26 23:49:15 2009
@@ -1,0 +1,2 @@
+use Acme::Buffy;
+BUffY bUFFY BUffY bUFFY buffY BufFy BUFfY bUfFY bUFFy BuffY BUFfy bufFy bUffy buFfy BUffy BUfFy bUFFy buFfy BUffy BUFfY bUFFy BufFy bUffY bUFFy bUfFy buffy BUFfy buFFY BufFy BufFY bUFfy BuFFY buffy bufFy bUffY BUfFY BUfFy Buffy bUffY buFFy buFFY BufFY bUFfy bufFy BUfFY bufFy buff
Propchange: branches/upstream/libacme-buffy-perl/current/t/buffy.t
------------------------------------------------------------------------------
svn:executable =
Added: branches/upstream/libacme-buffy-perl/current/t/critic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/t/critic.t?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/t/critic.t (added)
+++ branches/upstream/libacme-buffy-perl/current/t/critic.t Mon Oct 26 23:49:15 2009
@@ -1,0 +1,18 @@
+#!perl
+use strict;
+use warnings;
+use File::Spec;
+use Test::More;
+use English qw(-no_match_vars);
+
+eval { require Test::Perl::Critic; };
+
+if ($EVAL_ERROR) {
+ my $msg = 'Test::Perl::Critic required to criticise code';
+ plan( skip_all => $msg );
+}
+
+my $rcfile = File::Spec->catfile( 't', 'perlcriticrc' );
+Test::Perl::Critic->import( -profile => $rcfile );
+all_critic_ok();
+
Added: branches/upstream/libacme-buffy-perl/current/t/perlcriticrc
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/t/perlcriticrc?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/t/perlcriticrc (added)
+++ branches/upstream/libacme-buffy-perl/current/t/perlcriticrc Mon Oct 26 23:49:15 2009
@@ -1,0 +1,5 @@
+# local defaults for perlcritic
+severity = 3
+verbose = 4
+exclude = ProhibitStringyEval ProhibitTwoArgOpen RequireEndWithOne ProhibitCommaSeparatedStatements RequireExtendedFormatting
+
Added: branches/upstream/libacme-buffy-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/t/pod.t?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/t/pod.t (added)
+++ branches/upstream/libacme-buffy-perl/current/t/pod.t Mon Oct 26 23:49:15 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();
Added: branches/upstream/libacme-buffy-perl/current/t/pod_coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libacme-buffy-perl/current/t/pod_coverage.t?rev=46420&op=file
==============================================================================
--- branches/upstream/libacme-buffy-perl/current/t/pod_coverage.t (added)
+++ branches/upstream/libacme-buffy-perl/current/t/pod_coverage.t Mon Oct 26 23:49:15 2009
@@ -1,0 +1,6 @@
+#!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();
More information about the Pkg-perl-cvs-commits
mailing list