Permalink
Browse files

* Write Mojolicious applications with Dancer syntax via "selfvars::au…

…toload"! \o/

* selfvars 0.31.
  • Loading branch information...
1 parent d1d4a06 commit c3898eaff434aa511ad18b88f3cf7b9fa7a39977 @audreyt committed May 26, 2011
View
@@ -1,4 +1,9 @@
-[Changes for 0.21 - 2010-12-14]
+[Changes for 0.31 - 2011-05-27]
+
+* Introduce "selfvars::autoload", a helper module that makes it
+ possible to write Mojolicious applications with Dancer syntax.
+
+[Changes for 0.22 - 2010-12-14]
* Add =encoding utf8 to POD; no functional changes.
View
@@ -14,6 +14,7 @@ inc/Test/Builder.pm
inc/Test/Builder/Module.pm
inc/Test/More.pm
lib/selfvars.pm
+lib/selfvars/autoload.pm
Makefile.PL
MANIFEST This list of files
META.yml
@@ -22,9 +23,11 @@ SIGNATURE Public-key signature (added by MakeMaker)
t/00.load.t
t/02.eval.t
t/03.interpolation.t
+t/0hopts.t
t/0simple.t
t/lib/Counter.pm
t/lib/EvalTest.pm
+t/lib/HOpts.pm
t/lib/InterpolationTest.pm
t/pod-coverage.t
t/pod.t
View
@@ -31,7 +31,7 @@ BEGIN {
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '1.00';
+ $VERSION = '1.01';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -467,4 +467,4 @@ sub _CLASS ($) {
1;
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2011 Adam Kennedy.
@@ -4,7 +4,7 @@ package Module::Install::Base;
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
}
# Suspend handler for "redefined" warnings
@@ -9,7 +9,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -8,7 +8,7 @@ use Fcntl qw/:flock :seek/;
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -515,6 +515,7 @@ sub __extract_license {
'GNU Free Documentation license' => 'unrestricted', 1,
'GNU Affero General Public License' => 'open_source', 1,
'(?:Free)?BSD license' => 'bsd', 1,
+ 'Artistic license 2\.0' => 'artistic_2', 1,
'Artistic license' => 'artistic', 1,
'Apache (?:Software )?license' => 'apache', 1,
'GPL' => 'gpl', 1,
@@ -550,9 +551,9 @@ sub license_from {
sub _extract_bugtracker {
my @links = $_[0] =~ m#L<(
- \Qhttp://rt.cpan.org/\E[^>]+|
- \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
- \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
+ https?\Q://rt.cpan.org/\E[^>]+|
+ https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+ https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
)>#gx;
my %links;
@links{@links}=();
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
View
@@ -1,7 +1,7 @@
#line 1
package PerlIO;
-our $VERSION = '1.06';
+our $VERSION = '1.07';
# Map layer name to package that defines it
our %alias;
@@ -30,4 +30,4 @@ sub F_UTF8 () { 0x8000 }
1;
__END__
-#line 344
+#line 332
Oops, something went wrong.

0 comments on commit c3898ea

Please sign in to comment.