From f7a1e9b9fd8fcbb2598463739c1851cc188034e9 Mon Sep 17 00:00:00 2001 From: Ingy dot Net Date: Mon, 6 Jun 2011 00:55:42 +1000 Subject: [PATCH] 0.01 --- Changes | 5 +++++ Makefile.PL | 2 ++ README | 29 +++++++++++++++++++++++++++++ lib/perl5/i.pm | 36 ++++++++++++++++++++++++++++++++++++ lib/perl5/i0.pm | 30 ++++++++++++++++++++++++++++++ lib/perl5/i1.pm | 30 ++++++++++++++++++++++++++++++ lib/perl5/i2.pm | 30 ++++++++++++++++++++++++++++++ t/autobox.t | 8 ++++++++ t/use_ok.t | 17 +++++++++++++++++ 9 files changed, 187 insertions(+) create mode 100644 Changes create mode 100644 Makefile.PL create mode 100644 README create mode 100644 lib/perl5/i.pm create mode 100644 lib/perl5/i0.pm create mode 100644 lib/perl5/i1.pm create mode 100644 lib/perl5/i2.pm create mode 100644 t/autobox.t create mode 100644 t/use_ok.t diff --git a/Changes b/Changes new file mode 100644 index 0000000..ee285e8 --- /dev/null +++ b/Changes @@ -0,0 +1,5 @@ +--- +version: 0.01 +date: Sun Jun 5 23:29:22 EST 2011 +changes: +- First Release diff --git a/Makefile.PL b/Makefile.PL new file mode 100644 index 0000000..997b82c --- /dev/null +++ b/Makefile.PL @@ -0,0 +1,2 @@ +BEGIN { $PM = 'lib/perl5/i.pm' } +use inc::Module::Package 'Ingy:modern 0.08'; diff --git a/README b/README new file mode 100644 index 0000000..38b2778 --- /dev/null +++ b/README @@ -0,0 +1,29 @@ +NAME + perl5::i - perl5 plugin for perl5i + +SYNOPSIS + use perl5-i; + +DESCRIPTION + This is effectively a shorter way of writing: + + use perl5i::latest; + +SEE ALSO + * perl5 + + * perl5i + + * perl5-1i + +AUTHOR + Ingy döt Net + +COPYRIGHT AND LICENSE + Copyright (c) 2011. Ingy döt Net. + + This program is free software; you can redistribute it and/or modify it + under the same terms as Perl itself. + + See http://www.perl.com/perl/misc/Artistic.html + diff --git a/lib/perl5/i.pm b/lib/perl5/i.pm new file mode 100644 index 0000000..1909b49 --- /dev/null +++ b/lib/perl5/i.pm @@ -0,0 +1,36 @@ +## +# name: perl5::i +# abstract: perl5 plugin for perl5i +# author: Ingy döt Net +# license: perl +# copyright: 2011 +# see: +# - perl5 +# - perl5i +# - perl5-1i + +package perl5::i; +use 5.010_000; +use strict; +use warnings; +use perl5i v2.6.1 (); +use perl5i::latest (); + +our $VERSION = '0.01'; + +sub import { + @_ = ('perl5i::latest'); + goto &perl5i::latest::import; +} + +1; + +=head1 SYNOPSIS + + use perl5-i; + +=head1 DESCRIPTION + +This is effectively a shorter way of writing: + + use perl5i::latest; diff --git a/lib/perl5/i0.pm b/lib/perl5/i0.pm new file mode 100644 index 0000000..7fac47c --- /dev/null +++ b/lib/perl5/i0.pm @@ -0,0 +1,30 @@ +## +# name: perl5::i0 +# abstract: perl5 plugin for perl5i::0 +# author: Ingy döt Net +# license: perl +# copyright: 2011 +# see: +# - perl5::i + +package perl5::i0; +use perl5i::0 v2.6.1 (); + +1; + +sub import { + @_ = ('perl5i::0'); + goto &perl5i::0::import; +} + +1; + +=head1 SYNOPSIS + + use perl5-i0; + +=head1 DESCRIPTION + +This is effectively a shorter way of writing: + + use perl5i::0; diff --git a/lib/perl5/i1.pm b/lib/perl5/i1.pm new file mode 100644 index 0000000..a5280d8 --- /dev/null +++ b/lib/perl5/i1.pm @@ -0,0 +1,30 @@ +## +# name: perl5::i1 +# abstract: perl5 plugin for perl5i::1 +# author: Ingy döt Net +# license: perl +# copyright: 2011 +# see: +# - perl5::i + +package perl5::i1; +use perl5i::1 v2.6.1 (); + +1; + +sub import { + @_ = ('perl5i::1'); + goto &perl5i::1::import; +} + +1; + +=head1 SYNOPSIS + + use perl5-i1; + +=head1 DESCRIPTION + +This is effectively a shorter way of writing: + + use perl5i::1; diff --git a/lib/perl5/i2.pm b/lib/perl5/i2.pm new file mode 100644 index 0000000..163cc58 --- /dev/null +++ b/lib/perl5/i2.pm @@ -0,0 +1,30 @@ +## +# name: perl5::i2 +# abstract: perl5 plugin for perl5i::2 +# author: Ingy döt Net +# license: perl +# copyright: 2011 +# see: +# - perl5::i + +package perl5::i2; +use perl5i::2 v2.6.1 (); + +1; + +sub import { + @_ = ('perl5i::2'); + goto &perl5i::2::import; +} + +1; + +=head1 SYNOPSIS + + use perl5-i2; + +=head1 DESCRIPTION + +This is effectively a shorter way of writing: + + use perl5i::2; diff --git a/t/autobox.t b/t/autobox.t new file mode 100644 index 0000000..11bc520 --- /dev/null +++ b/t/autobox.t @@ -0,0 +1,8 @@ +use Test::More tests => 3; + +use perl5-i; + +my $answer = 42; +[42, 43, 44]->foreach(sub { + is $_[0], $answer++, "Number $_[0] is ok"; +}); diff --git a/t/use_ok.t b/t/use_ok.t new file mode 100644 index 0000000..2363eb9 --- /dev/null +++ b/t/use_ok.t @@ -0,0 +1,17 @@ +use Test::More tests => 1; + +BEGIN { $SIG{__WARN__} = sub {} } + +package t0; +use perl5-i0; + +package t1; +use perl5-i1; + +package t2; +use perl5-i2; + +package main; +use perl5-i; + +pass 'All perl5i modules worked';