[Jifty-commit] jifty branch, master, updated. jifty-1.10228-14-g9ecf4e9
Jifty commits
jifty-commit at lists.jifty.org
Mon Apr 25 10:45:51 EDT 2011
The branch, master has been updated
via 9ecf4e9fa9d5591fa3e4000047003a9c30826db3 (commit)
from 6fc7598b76d98ced9d2499b7dd8d7ab4ba2fe070 (commit)
Summary of changes:
.../jifty-plugin-manpage-has-bad-whatis.patch | 2 +-
doc/building_a_par | 6 +++---
doc/examples/CounterDemo/bin/jifty | 2 +-
doc/jifty-plugins-2.0 | 2 +-
examples/Chat/bin/jifty | 2 +-
examples/Clock/bin/jifty | 2 +-
examples/Clock/clockserv.pl | 2 +-
examples/Doxory/bin/jifty | 2 +-
examples/Doxory/lib/Doxory/Model/Vote.pm | 2 +-
examples/HelloKitty/bin/jifty | 2 +-
examples/MyWeblog/bin/jifty | 2 +-
examples/Ping/bin/jifty | 2 +-
examples/Ping/lib/Ping/PingServer.pm | 2 +-
examples/ShrinkURL/bin/jifty | 2 +-
examples/Yada/bin/jifty | 2 +-
examples/Yada/lib/Yada.pm | 2 +-
inc/Module/Install.pm | 2 +-
lib/Jifty/API.pm | 2 +-
lib/Jifty/Action.pm | 4 ++--
lib/Jifty/Action/Record.pm | 4 ++--
lib/Jifty/CAS/Blob.pm | 2 +-
lib/Jifty/Client.pm | 2 +-
lib/Jifty/Collection.pm | 2 +-
lib/Jifty/Continuation.pm | 4 ++--
lib/Jifty/CurrentUser.pm | 2 +-
lib/Jifty/DateTime.pm | 4 ++--
lib/Jifty/Dispatcher.pm | 2 +-
lib/Jifty/Event.pm | 2 +-
lib/Jifty/Event/Model.pm | 4 ++--
lib/Jifty/Filter/DateTime.pm | 8 ++++----
lib/Jifty/Handler.pm | 6 +++---
lib/Jifty/I18N.pm | 2 +-
lib/Jifty/Manual/AccessControl.pod | 4 ++--
lib/Jifty/Manual/AccessControl_zhtw.pod | 4 ++--
lib/Jifty/Manual/Actions.pod | 2 +-
lib/Jifty/Manual/Actions_zhtw.pod | 2 +-
lib/Jifty/Manual/Cookbook.pod | 6 +++---
lib/Jifty/Manual/Upgrading.pod | 8 ++++----
lib/Jifty/Model/Metadata.pm | 2 +-
lib/Jifty/Model/Session.pm | 2 +-
lib/Jifty/Notification.pm | 2 +-
lib/Jifty/Param.pm | 2 +-
lib/Jifty/Param/Schema.pm | 6 +++---
.../ActorMetadata/Mixin/Model/ActorMetadata.pm | 4 ++--
lib/Jifty/Plugin/Authentication/Password.pm | 2 +-
.../Plugin/Authentication/Password/Action/Login.pm | 2 +-
.../Password/Action/ResendConfirmation.pm | 2 +-
.../Password/Action/SendAccountConfirmation.pm | 2 +-
.../Password/Action/SendPasswordReminder.pm | 2 +-
.../Authentication/Password/Mixin/Model/User.pm | 2 +-
lib/Jifty/Plugin/Authentication/Password/View.pm | 8 ++++----
lib/Jifty/Plugin/CompressedCSSandJS.pm | 2 +-
lib/Jifty/Plugin/ErrorTemplates/View.pm | 2 +-
lib/Jifty/Plugin/I18N.pm | 2 +-
lib/Jifty/Plugin/IEFixes.pm | 4 ++--
lib/Jifty/Plugin/Prototypism.pm | 6 +++---
lib/Jifty/Plugin/REST/Dispatcher.pm | 10 +++++-----
lib/Jifty/Plugin/RequestInspector.pm | 2 +-
lib/Jifty/Plugin/RequestInspector/Model/Request.pm | 2 +-
lib/Jifty/Plugin/SQLQueries.pm | 2 +-
lib/Jifty/Plugin/SetupWizard.pm | 2 +-
lib/Jifty/Plugin/SinglePage.pm | 2 +-
lib/Jifty/Plugin/SkeletonApp/View.pm | 2 +-
lib/Jifty/Plugin/TestServerWarnings.pm | 2 +-
lib/Jifty/Plugin/ViewDeclarePage/Page.pm | 8 ++++----
lib/Jifty/Record.pm | 2 +-
lib/Jifty/Result.pm | 2 +-
lib/Jifty/Schema.pm | 2 +-
lib/Jifty/Script/App.pm | 8 ++++----
lib/Jifty/Script/Help.pm | 4 ++--
lib/Jifty/Script/Plugin.pm | 8 ++++----
lib/Jifty/Script/Po.pm | 2 +-
lib/Jifty/Test.pm | 4 ++--
lib/Jifty/Test/Email.pm | 2 +-
lib/Jifty/Test/WWW/Declare.pm | 4 ++--
lib/Jifty/Test/WWW/Mechanize.pm | 2 +-
lib/Jifty/View/Declare/CoreTemplates.pm | 4 ++--
lib/Jifty/View/Declare/Helpers.pm | 6 +++---
lib/Jifty/View/Declare/Page.pm | 8 ++++----
lib/Jifty/View/Mason/Handler.pm | 8 ++++----
lib/Jifty/View/Mason/Request.pm | 2 +-
lib/Jifty/Web.pm | 20 ++++++++++----------
lib/Jifty/Web/FileUpload.pm | 2 +-
lib/Jifty/Web/Form.pm | 2 +-
lib/Jifty/Web/Form/Clickable.pm | 4 ++--
lib/Jifty/Web/Form/Element.pm | 8 ++++----
lib/Jifty/Web/Form/Field.pm | 10 +++++-----
lib/Jifty/Web/Form/Field/Textarea.pm | 2 +-
lib/Jifty/Web/Form/Link.pm | 4 ++--
lib/Jifty/Web/Menu.pm | 6 +++---
lib/Jifty/Web/PageRegion.pm | 2 +-
share/web/templates/__jifty/webservices/xml | 2 +-
share/web/templates/helpers/calendar.html | 6 +++---
t/01-dependencies.t | 2 +-
t/01-test-web.t | 4 ++--
t/01-version_checks.t | 2 +-
t/Continuations/bin/jifty | 2 +-
t/Jifty.pm | 2 +-
t/Mapper/bin/jifty | 2 +-
t/TestApp-Bulk/bin/jifty | 2 +-
t/TestApp-Dispatcher/t/under.t | 6 +++---
t/TestApp-JiftyJS/bin/jifty | 2 +-
.../lib/TestApp/JiftyJS/Action/Play.pm | 4 ++--
t/TestApp-JiftyJS/lib/TestApp/JiftyJS/View.pm | 2 +-
t/TestApp-JiftyJS/t/2-behaviour.t | 4 ++--
t/TestApp-Mason/bin/jifty | 2 +-
.../lib/TestApp/Notification/Foo.pm | 2 +-
t/TestApp-Plugin-ActorMetadata/t/mixin.t | 2 +-
t/TestApp-Plugin-AppPluginHasModels/bin/jifty | 2 +-
t/TestApp-Plugin-CompressedCSSandJS/bin/jifty | 2 +-
t/TestApp-Plugin-News/bin/jifty | 2 +-
t/TestApp-Plugin-OnClick/bin/jifty | 2 +-
t/TestApp-Plugin-PasswordAuth/bin/jifty | 2 +-
.../lib/TestApp/Plugin/FasterSwallow.pm | 2 +-
.../lib/TestApp/Plugin/PasswordAuth/CurrentUser.pm | 4 ++--
t/TestApp-Plugin-REST/bin/jifty | 2 +-
t/TestApp-Plugin-REST/t/02-basic-use.t | 4 ++--
t/TestApp-Plugin-REST/t/03-format.t | 4 ++--
t/TestApp-Plugin-SetupWizard/bin/jifty | 2 +-
.../lib/TestApp/Plugin/SetupWizard/Test.pm | 2 +-
t/TestApp-Plugin-SinglePage/bin/jifty | 2 +-
t/TestApp-RestartServer/bin/jifty | 2 +-
t/TestApp-RestartServer/t/restart.t | 2 +-
t/TestApp/bin/jifty | 2 +-
t/TestApp/lib/TestApp/Model/User.pm | 2 +-
t/TestApp/t/03-static.t | 2 +-
126 files changed, 209 insertions(+), 209 deletions(-)
- Log -----------------------------------------------------------------
commit 9ecf4e9fa9d5591fa3e4000047003a9c30826db3
Author: sunnavy <sunnavy at bestpractical.com>
Date: Mon Apr 25 22:37:26 2011 +0800
Revert "qw() is depreciated since 4.13.5"
actually, qw() is not deprecated unless as parentheses
This reverts commit 3f9b66409713587f3c00da75ab1a39463e19f9a2.
diff --git a/debian/patches/jifty-plugin-manpage-has-bad-whatis.patch b/debian/patches/jifty-plugin-manpage-has-bad-whatis.patch
index 2eba725..1ee438c 100644
--- a/debian/patches/jifty-plugin-manpage-has-bad-whatis.patch
+++ b/debian/patches/jifty-plugin-manpage-has-bad-whatis.patch
@@ -401,7 +401,7 @@
+++ b/lib/Jifty/Plugin/SiteNews/Mixin/Model/News.pm
@@ -7,6 +7,12 @@
- our @EXPORT = qw/current_user_can/;
+ our @EXPORT = qw(current_user_can);
+=head1 NAME
+
diff --git a/doc/building_a_par b/doc/building_a_par
index 2b2d5e9..003b462 100644
--- a/doc/building_a_par
+++ b/doc/building_a_par
@@ -3,11 +3,11 @@ Incomplete instructions
$ pp `find lib/ -name \*pm |perl -ne '$_ =~ s/.pm$//;print "-M ". join("::",grep { ! /(?:lib|\-)/ } split("/",$_)) '` -I lib bin/jifty
use warnings;
use strict;
-use Cwd qw/cwd/;
+use Cwd qw(cwd);
use Module::CoreList;
use File::Copy;
-use File::Path qw/mkpath/;
-use File::Spec::Functions qw/splitdir catfile catdir/;
+use File::Path qw(mkpath);
+use File::Spec::Functions qw(splitdir catfile catdir);
use CPAN;
use CPAN::Config;
use YAML;
diff --git a/doc/examples/CounterDemo/bin/jifty b/doc/examples/CounterDemo/bin/jifty
index 66a9b79..3b32155 100755
--- a/doc/examples/CounterDemo/bin/jifty
+++ b/doc/examples/CounterDemo/bin/jifty
@@ -4,7 +4,7 @@ eval 'exec /usr/bin/env perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/doc/jifty-plugins-2.0 b/doc/jifty-plugins-2.0
index e7ad6b1..0d6d5a6 100644
--- a/doc/jifty-plugins-2.0
+++ b/doc/jifty-plugins-2.0
@@ -85,7 +85,7 @@ column 'username' =>
column 'password' =>
type is 'text',
render_as 'Password',
- filters are qw/Jifty::DBI::Filter::SaltHash/;
+ filters are qw(Jifty::DBI::Filter::SaltHash);
sub password_is {
my $self = shift;
diff --git a/examples/Chat/bin/jifty b/examples/Chat/bin/jifty
index 771d886..821cc7d 100755
--- a/examples/Chat/bin/jifty
+++ b/examples/Chat/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/examples/Clock/bin/jifty b/examples/Clock/bin/jifty
index 771d886..821cc7d 100755
--- a/examples/Clock/bin/jifty
+++ b/examples/Clock/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/examples/Clock/clockserv.pl b/examples/Clock/clockserv.pl
index df1c377..6a34ab6 100644
--- a/examples/Clock/clockserv.pl
+++ b/examples/Clock/clockserv.pl
@@ -1,6 +1,6 @@
use strict;
use lib 'lib';
-use Time::HiRes qw/ time sleep /;
+use Time::HiRes qw( time sleep );
use Jifty;
BEGIN { Jifty->new };
diff --git a/examples/Doxory/bin/jifty b/examples/Doxory/bin/jifty
index 67a5487..8f0e01c 100755
--- a/examples/Doxory/bin/jifty
+++ b/examples/Doxory/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/examples/Doxory/lib/Doxory/Model/Vote.pm b/examples/Doxory/lib/Doxory/Model/Vote.pm
index 0e3392b..da3cdf7 100644
--- a/examples/Doxory/lib/Doxory/Model/Vote.pm
+++ b/examples/Doxory/lib/Doxory/Model/Vote.pm
@@ -12,7 +12,7 @@ use Doxory::Record schema {
references Doxory::Model::User;
column suggestion =>
- valid are qw/ a b skip /;
+ valid are qw( a b skip );
column comments =>
label is _('Comments?'),
diff --git a/examples/HelloKitty/bin/jifty b/examples/HelloKitty/bin/jifty
index 771d886..821cc7d 100755
--- a/examples/HelloKitty/bin/jifty
+++ b/examples/HelloKitty/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/examples/MyWeblog/bin/jifty b/examples/MyWeblog/bin/jifty
index 771d886..821cc7d 100755
--- a/examples/MyWeblog/bin/jifty
+++ b/examples/MyWeblog/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/examples/Ping/bin/jifty b/examples/Ping/bin/jifty
index 771d886..821cc7d 100755
--- a/examples/Ping/bin/jifty
+++ b/examples/Ping/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/examples/Ping/lib/Ping/PingServer.pm b/examples/Ping/lib/Ping/PingServer.pm
index 8c937ec..e2ea061 100644
--- a/examples/Ping/lib/Ping/PingServer.pm
+++ b/examples/Ping/lib/Ping/PingServer.pm
@@ -1,7 +1,7 @@
package Ping::PingServer;
use Net::Ping;
-use Time::HiRes qw/ time sleep /;
+use Time::HiRes qw( time sleep );
use Jifty;
BEGIN { Jifty->new };
diff --git a/examples/ShrinkURL/bin/jifty b/examples/ShrinkURL/bin/jifty
index 6128393..59debb2 100755
--- a/examples/ShrinkURL/bin/jifty
+++ b/examples/ShrinkURL/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
use Jifty;
diff --git a/examples/Yada/bin/jifty b/examples/Yada/bin/jifty
index 67a5487..8f0e01c 100755
--- a/examples/Yada/bin/jifty
+++ b/examples/Yada/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/examples/Yada/lib/Yada.pm b/examples/Yada/lib/Yada.pm
index 42b8827..413a9c5 100644
--- a/examples/Yada/lib/Yada.pm
+++ b/examples/Yada/lib/Yada.pm
@@ -1,6 +1,6 @@
package Yada;
-Jifty->web->add_javascript(qw/ Asynapse/REST.js trimpath-template.js / );
+Jifty->web->add_javascript(qw( Asynapse/REST.js trimpath-template.js ) );
1;
diff --git a/inc/Module/Install.pm b/inc/Module/Install.pm
index 060edbc..8ee839d 100644
--- a/inc/Module/Install.pm
+++ b/inc/Module/Install.pm
@@ -121,7 +121,7 @@ END_DIE
# To save some more typing in Module::Install installers, every...
# use inc::Module::Install
# ...also acts as an implicit use strict.
- $^H |= strict::bits(qw/refs subs vars/);
+ $^H |= strict::bits(qw(refs subs vars));
#-------------------------------------------------------------
diff --git a/lib/Jifty/API.pm b/lib/Jifty/API.pm
index 5dad18b..1ae817d 100644
--- a/lib/Jifty/API.pm
+++ b/lib/Jifty/API.pm
@@ -59,7 +59,7 @@ available within your application and manage access to those actions.
use base qw/Class::Accessor::Fast Jifty::Object/;
-__PACKAGE__->mk_accessors(qw/action_limits/);
+__PACKAGE__->mk_accessors(qw(action_limits));
=head1 METHODS
diff --git a/lib/Jifty/Action.pm b/lib/Jifty/Action.pm
index 23db8b4..df250a5 100644
--- a/lib/Jifty/Action.pm
+++ b/lib/Jifty/Action.pm
@@ -46,7 +46,7 @@ See L<Jifty::Manual::Actions> for examples of using actions.
use base qw/Jifty::Object Class::Accessor::Fast Class::Data::Inheritable/;
-__PACKAGE__->mk_accessors(qw/moniker argument_values values_from_request order result sticky_on_success sticky_on_failure/);
+__PACKAGE__->mk_accessors(qw(moniker argument_values values_from_request order result sticky_on_success sticky_on_failure));
__PACKAGE__->mk_classdata(qw/PARAMS/);
=head1 COMMON METHODS
@@ -195,7 +195,7 @@ sub _generate_moniker {
my $self = shift;
# We use Digest::MD5 to generate the moniker
- use Digest::MD5 qw/md5_hex/;
+ use Digest::MD5 qw(md5_hex);
# Use information from the call stack as the data for the digest
my $frame = 1;
diff --git a/lib/Jifty/Action/Record.pm b/lib/Jifty/Action/Record.pm
index 3fbf26c..43d9457 100644
--- a/lib/Jifty/Action/Record.pm
+++ b/lib/Jifty/Action/Record.pm
@@ -26,7 +26,7 @@ use Scalar::Defer qw/ defer /;
use Scalar::Util qw/ blessed /;
use Clone qw/clone/;
-__PACKAGE__->mk_accessors(qw/record _cached_arguments/);
+__PACKAGE__->mk_accessors(qw(record _cached_arguments));
use constant report_detailed_messages => 1;
@@ -296,7 +296,7 @@ sub _build_class_arguments {
# If we're hand-coding a render_as, hints or label, let's use it.
for (
- qw/render_as label hints display_length max_length mandatory sort_order container documentation attributes/
+ qw(render_as label hints display_length max_length mandatory sort_order container documentation attributes)
)
{
if ( defined( my $val = $column->$_ ) ) {
diff --git a/lib/Jifty/CAS/Blob.pm b/lib/Jifty/CAS/Blob.pm
index 38e5820..2caa8be 100644
--- a/lib/Jifty/CAS/Blob.pm
+++ b/lib/Jifty/CAS/Blob.pm
@@ -51,7 +51,7 @@ Returns the key calculated for this content.
=cut
-__PACKAGE__->mk_accessors(qw/content metadata key/);
+__PACKAGE__->mk_accessors(qw(content metadata key));
sub new {
my $class = shift;
diff --git a/lib/Jifty/Client.pm b/lib/Jifty/Client.pm
index 1490893..0e47f0f 100644
--- a/lib/Jifty/Client.pm
+++ b/lib/Jifty/Client.pm
@@ -9,7 +9,7 @@ delete $ENV{'http_proxy'}; # Otherwise WWW::Mechanize tries to go through your H
use Jifty::YAML;
use HTTP::Cookies;
use HTML::TreeBuilder::XPath;
-use List::Util qw/first/;
+use List::Util qw(first);
use Carp;
=head1 NAME
diff --git a/lib/Jifty/Collection.pm b/lib/Jifty/Collection.pm
index 029e5ac..fe1bc67 100644
--- a/lib/Jifty/Collection.pm
+++ b/lib/Jifty/Collection.pm
@@ -52,7 +52,7 @@ normal current_user_can checks.
=cut
-__PACKAGE__->mk_accessors(qw/results_are_readable/);
+__PACKAGE__->mk_accessors(qw(results_are_readable));
=head2 as_search_action PARAMHASH
diff --git a/lib/Jifty/Continuation.pm b/lib/Jifty/Continuation.pm
index bb4382f..dece686 100644
--- a/lib/Jifty/Continuation.pm
+++ b/lib/Jifty/Continuation.pm
@@ -61,10 +61,10 @@ $Storable::forgive_me = 1;
use base qw/Class::Accessor::Fast Jifty::Object/;
-__PACKAGE__->mk_accessors(qw/id parent
+__PACKAGE__->mk_accessors(qw(id parent
request response code
version
- /);
+ ));
=head2 new PARAMHASH
diff --git a/lib/Jifty/CurrentUser.pm b/lib/Jifty/CurrentUser.pm
index 9e48ac8..b5ce704 100644
--- a/lib/Jifty/CurrentUser.pm
+++ b/lib/Jifty/CurrentUser.pm
@@ -6,7 +6,7 @@ package Jifty::CurrentUser;
use base qw/Jifty::Object Class::Accessor::Fast/;
use Scalar::Util qw();
-__PACKAGE__->mk_accessors(qw/is_superuser is_bootstrap_user/);
+__PACKAGE__->mk_accessors(qw(is_superuser is_bootstrap_user));
=head1 NAME
diff --git a/lib/Jifty/DateTime.pm b/lib/Jifty/DateTime.pm
index 000a17f..a60861c 100644
--- a/lib/Jifty/DateTime.pm
+++ b/lib/Jifty/DateTime.pm
@@ -43,14 +43,14 @@ BEGIN {
require DateTime::Locale;
}
-use base qw/Jifty::Object DateTime/;
+use base qw(Jifty::Object DateTime);
use Jifty::DBI::Schema;
Jifty::DBI::Schema->register_types(
timestamp => sub {
encode_on_select is 1,
type is 'timestamp',
- filters are qw/ Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime /,
+ filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime ),
},
);
diff --git a/lib/Jifty/Dispatcher.pm b/lib/Jifty/Dispatcher.pm
index 4c05d4b..f4ec962 100644
--- a/lib/Jifty/Dispatcher.pm
+++ b/lib/Jifty/Dispatcher.pm
@@ -355,7 +355,7 @@ sub import {
no strict 'refs';
no warnings 'once';
- for (qw/RULES_RUN RULES_SETUP RULES_CLEANUP RULES_DEFERRED/) {
+ for (qw(RULES_RUN RULES_SETUP RULES_CLEANUP RULES_DEFERRED)) {
@{ $pkg . '::' . $_ } = ();
}
if ( @args != @_ ) {
diff --git a/lib/Jifty/Event.pm b/lib/Jifty/Event.pm
index 378ad10..3d2282e 100644
--- a/lib/Jifty/Event.pm
+++ b/lib/Jifty/Event.pm
@@ -4,7 +4,7 @@ use strict;
package Jifty::Event;
use Jifty::YAML;
-use Digest::MD5 qw/md5_hex/;
+use Digest::MD5 qw(md5_hex);
use vars qw/%PUBLISHER/;
=head1 NAME
diff --git a/lib/Jifty/Event/Model.pm b/lib/Jifty/Event/Model.pm
index 5c53842..eca797d 100644
--- a/lib/Jifty/Event/Model.pm
+++ b/lib/Jifty/Event/Model.pm
@@ -41,9 +41,9 @@ sub new {
sub _check {
my $self = shift;
- for (qw/record_id record_class action_class
+ for (qw(record_id record_class action_class
action_arguments timestamp result as_hash_before
- as_hash_after current_user_id/) {
+ as_hash_after current_user_id)) {
Carp::confess("$self missing required parameter $_ ")
unless ( defined $$self->{$_} );
};
diff --git a/lib/Jifty/Filter/DateTime.pm b/lib/Jifty/Filter/DateTime.pm
index 6125835..92fd277 100644
--- a/lib/Jifty/Filter/DateTime.pm
+++ b/lib/Jifty/Filter/DateTime.pm
@@ -11,7 +11,7 @@ Jifty::Filter::DateTime -- A Jifty::DBI filter to work with
# use it with Jifty::DBI::Filter::Date or J::D::F::DateTime
column created =>
type is 'timestamp',
- filters are qw/ Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime/,
+ filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime),
label is 'Created',
is immutable;
@@ -27,14 +27,14 @@ C<Jifty::DBI::Filter::DateTime>, e.g.
column created =>
type is 'timestamp',
- filters are qw/ Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime/,
+ filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime),
label is 'Created',
is immutable;
=cut
package Jifty::Filter::DateTime;
-use base qw/Jifty::DBI::Filter/;
+use base qw(Jifty::DBI::Filter);
=head2 decode
@@ -54,7 +54,7 @@ sub decode {
# XXX There has to be a better way to do this
my %args;
- for (qw/year month day hour minute second nanosecond formatter time_zone/) {
+ for (qw(year month day hour minute second nanosecond formatter time_zone)) {
$args{$_} = $$value_ref->$_ if(defined($$value_ref->$_));
}
diff --git a/lib/Jifty/Handler.pm b/lib/Jifty/Handler.pm
index dea6aa7..af7bb9b 100644
--- a/lib/Jifty/Handler.pm
+++ b/lib/Jifty/Handler.pm
@@ -30,7 +30,7 @@ use String::BufferStack;
use Plack::Builder;
use Plack::Request;
-__PACKAGE__->mk_accessors(qw/dispatcher _view_handlers stash buffer/);
+__PACKAGE__->mk_accessors(qw(dispatcher _view_handlers stash buffer));
=head2 new
@@ -220,10 +220,10 @@ sub handle_request {
$self->call_trigger('before_request', $req);
# Simple ensure stdout is not writable in next major release
- use IO::Handle::Util qw/io_prototype io_to_glob/;
+ use IO::Handle::Util qw(io_prototype io_to_glob);
my $trapio= io_prototype
print => sub {
- use Carp::Clan qw/^(Jifty::Handler|Carp::|IO::Handle::)/;
+ use Carp::Clan qw(^(Jifty::Handler|Carp::|IO::Handle::));
carp "printing to STDOUT is deprecated. Use outs, outs_raw or Jifty->web->response->body() instead";
my $self = shift;
diff --git a/lib/Jifty/I18N.pm b/lib/Jifty/I18N.pm
index 22e4540..8b897a6 100644
--- a/lib/Jifty/I18N.pm
+++ b/lib/Jifty/I18N.pm
@@ -5,7 +5,7 @@ package Jifty::I18N;
use base 'Locale::Maketext';
use Locale::Maketext::Lexicon ();
use Email::MIME::ContentType;
-use Encode::Guess qw/iso-8859-1/;
+use Encode::Guess qw(iso-8859-1);
use Jifty::Util;
=head1 NAME
diff --git a/lib/Jifty/Manual/AccessControl.pod b/lib/Jifty/Manual/AccessControl.pod
index 57fe85a..7313d93 100644
--- a/lib/Jifty/Manual/AccessControl.pod
+++ b/lib/Jifty/Manual/AccessControl.pod
@@ -116,9 +116,9 @@ will automatically get called after the Plugin's C<_init> is done.
use strict;
use warnings;
- use base qw/Jifty::CurrentUser/;
+ use base qw(Jifty::CurrentUser);
- __PACKAGE__->mk_accessors(qw/group/);
+ __PACKAGE__->mk_accessors(qw(group));
sub _init {
my $self = shift;
diff --git a/lib/Jifty/Manual/AccessControl_zhtw.pod b/lib/Jifty/Manual/AccessControl_zhtw.pod
index 27cd1a3..0355296 100644
--- a/lib/Jifty/Manual/AccessControl_zhtw.pod
+++ b/lib/Jifty/Manual/AccessControl_zhtw.pod
@@ -120,9 +120,9 @@ L<Jifty::Manual::Models> æ L<Jifty::DBI::Schema> å
§åé±æ´è©³ç´°çè³æ
use strict;
use warnings;
- use base qw/Jifty::CurrentUser/;
+ use base qw(Jifty::CurrentUser);
- __PACKAGE__->mk_accessors(qw/group/);
+ __PACKAGE__->mk_accessors(qw(group));
sub _init {
my $self = shift;
diff --git a/lib/Jifty/Manual/Actions.pod b/lib/Jifty/Manual/Actions.pod
index 68a8053..9d35559 100644
--- a/lib/Jifty/Manual/Actions.pod
+++ b/lib/Jifty/Manual/Actions.pod
@@ -99,7 +99,7 @@ dropdown/text field), with some default values available:
param category =>
label is 'Category',
render as 'Combobox',
- available are qw/ Personal Work Block /;
+ available are qw( Personal Work Block );
# ...
But a static list is lame. What we really want is a C<Category> model,
diff --git a/lib/Jifty/Manual/Actions_zhtw.pod b/lib/Jifty/Manual/Actions_zhtw.pod
index 7fbaeae..8a3a7d4 100644
--- a/lib/Jifty/Manual/Actions_zhtw.pod
+++ b/lib/Jifty/Manual/Actions_zhtw.pod
@@ -102,7 +102,7 @@ dropdown/text field), with some default values available:
param category =>
label is 'Category',
render as 'Combobox',
- available are qw/ Personal Work Block /;
+ available are qw( Personal Work Block );
# ...
But a static list is lame. What we really want is a C<Category> model,
diff --git a/lib/Jifty/Manual/Cookbook.pod b/lib/Jifty/Manual/Cookbook.pod
index bd96317..fd756ef 100644
--- a/lib/Jifty/Manual/Cookbook.pod
+++ b/lib/Jifty/Manual/Cookbook.pod
@@ -85,7 +85,7 @@ we need L<Net::LDAP> and an accessor to our LDAP value.
use Net::LDAP;
- __PACKAGE__->mk_accessors(qw/LDAP/);
+ __PACKAGE__->mk_accessors(qw(LDAP));
and we can write our C<ldap_search> function.
Search need at least 3 characters and return an array of C<DisplayName (login)>
@@ -174,7 +174,7 @@ for just a date. Jifty will then automatically translate to and from
DateTime objects for you when you access the column on your
model. Additionally, if you add:
- filters are qw/Jifty::Filter::DateTime Jifty::DBI::Filter::Date/
+ filters are qw(Jifty::Filter::DateTime Jifty::DBI::Filter::Date)
Jifty will inspect the model's
L<current_user|Jifty::Manual::AccessControl> for a C<time_zone>
@@ -322,7 +322,7 @@ lowercase. All you have to do is to define a method named
C<canonicalize_username> in your Model class, like this:
package MyApp::Model::User;
- use base qw/MyApp::Record/;
+ use base qw(MyApp::Record);
sub canonicalize_username {
my $class = shift;
diff --git a/lib/Jifty/Manual/Upgrading.pod b/lib/Jifty/Manual/Upgrading.pod
index df292cd..b28b8d1 100644
--- a/lib/Jifty/Manual/Upgrading.pod
+++ b/lib/Jifty/Manual/Upgrading.pod
@@ -109,8 +109,8 @@ At the very least your F<Upgrade.pm> should contain the following:
package MyApp::Upgrade;
- use base qw/Jifty::Upgrade/;
- use Jifty::Upgrade qw/ since rename /;
+ use base qw(Jifty::Upgrade);
+ use Jifty::Upgrade qw( since rename );
since '0.6.1' => sub {
....
@@ -143,8 +143,8 @@ Before you upgrade, though, you must tell Jifty that a rename is happening here,
use MyApp::Upgrade;
- use base qw/Jifty::Upgrade/;
- use Jifty::Upgrade qw/ since rename /;
+ use base qw(Jifty::Upgrade);
+ use Jifty::Upgrade qw( since rename );
since '0.6.1' => sub {
rename(
diff --git a/lib/Jifty/Model/Metadata.pm b/lib/Jifty/Model/Metadata.pm
index 3abc40a..b0d3182 100644
--- a/lib/Jifty/Model/Metadata.pm
+++ b/lib/Jifty/Model/Metadata.pm
@@ -30,7 +30,7 @@ column value => type is 'text';
use version;
-use base qw/ Jifty::Record /;
+use base qw( Jifty::Record );
=head2 table
diff --git a/lib/Jifty/Model/Session.pm b/lib/Jifty/Model/Session.pm
index 903ae5c..2580500 100644
--- a/lib/Jifty/Model/Session.pm
+++ b/lib/Jifty/Model/Session.pm
@@ -29,7 +29,7 @@ column updated => type is 'timestamp',
column key_type => type is 'varchar(32)', is case_sensitive, is no_placeholder;
};
-use base qw/ Jifty::Record /;
+use base qw( Jifty::Record );
use DateTime ();
=head2 table
diff --git a/lib/Jifty/Notification.pm b/lib/Jifty/Notification.pm
index ac3994a..7d05782 100644
--- a/lib/Jifty/Notification.pm
+++ b/lib/Jifty/Notification.pm
@@ -46,7 +46,7 @@ sub new {
my %args = @_;
# initialize message bits to avoid 'undef' warnings
- #for (qw/body preface footer subject/) { $self->$_(''); }
+ #for (qw(body preface footer subject)) { $self->$_(''); }
$self->_recipients( [] );
while ( my ( $arg, $value ) = each %args ) {
diff --git a/lib/Jifty/Param.pm b/lib/Jifty/Param.pm
index fbb0422..88d1270 100644
--- a/lib/Jifty/Param.pm
+++ b/lib/Jifty/Param.pm
@@ -76,7 +76,7 @@ use Jifty::Web::Form::Field ();
use base qw/Class::Accessor::Fast/;
use constant ACCESSORS => (
Jifty::Web::Form::Field->accessors,
- qw/constructor valid_values available_values sort_order documentation/,
+ qw(constructor valid_values available_values sort_order documentation),
);
__PACKAGE__->mk_accessors(ACCESSORS);
diff --git a/lib/Jifty/Param/Schema.pm b/lib/Jifty/Param/Schema.pm
index 7ca34ec..2c972ea 100644
--- a/lib/Jifty/Param/Schema.pm
+++ b/lib/Jifty/Param/Schema.pm
@@ -68,8 +68,8 @@ L<Jifty::Param>, this module offers the following aliases:
ajax canonicalizes, # ajax_canonicalizes is 1
order is -1, # sort_order is -1
default is 0, # default_value is 0
- valid are qw/ 1 2 3 /, # valid_values are qw/ 1 2 3 /
- available are qw/ 1 2 3 /, # available_values are qw/ 1 2 3 /
+ valid are qw( 1 2 3 ), # valid_values are qw( 1 2 3 )
+ available are qw( 1 2 3 ), # available_values are qw( 1 2 3 )
render as 'select', # render_as is 'select'
=head1 SEE ALSO
@@ -106,7 +106,7 @@ use Object::Declare (
use Exporter::Lite;
use Class::Data::Inheritable;
-our @EXPORT = qw/ defer lazy param schema /;
+our @EXPORT = qw( defer lazy param schema );
sub schema (&) {
my $code = shift;
diff --git a/lib/Jifty/Plugin/ActorMetadata/Mixin/Model/ActorMetadata.pm b/lib/Jifty/Plugin/ActorMetadata/Mixin/Model/ActorMetadata.pm
index 3d263e5..7d971ef 100644
--- a/lib/Jifty/Plugin/ActorMetadata/Mixin/Model/ActorMetadata.pm
+++ b/lib/Jifty/Plugin/ActorMetadata/Mixin/Model/ActorMetadata.pm
@@ -5,7 +5,7 @@ package Jifty::Plugin::ActorMetadata::Mixin::Model::ActorMetadata;
use Jifty::DBI::Schema;
use base 'Jifty::DBI::Record::Plugin';
-our @EXPORT = qw/current_user_can current_user_is_owner/;
+our @EXPORT = qw(current_user_can current_user_is_owner);
my %column_names;
=head1 NAME
@@ -51,7 +51,7 @@ Jifty::DBI::Schema->register_types(
input_filters are qw/Jifty::DBI::Filter::DateTime/ },
TimeStamp => sub {
type is 'timestamp',
- filters are qw/ Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime/,
+ filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime),
}
);
}
diff --git a/lib/Jifty/Plugin/Authentication/Password.pm b/lib/Jifty/Plugin/Authentication/Password.pm
index a552b05..8a6f0b2 100644
--- a/lib/Jifty/Plugin/Authentication/Password.pm
+++ b/lib/Jifty/Plugin/Authentication/Password.pm
@@ -4,7 +4,7 @@ use warnings;
package Jifty::Plugin::Authentication::Password;
use base qw/Jifty::Plugin/;
-__PACKAGE__->mk_accessors(qw/nav_menu/);
+__PACKAGE__->mk_accessors(qw(nav_menu));
=head1 NAME
diff --git a/lib/Jifty/Plugin/Authentication/Password/Action/Login.pm b/lib/Jifty/Plugin/Authentication/Password/Action/Login.pm
index 7cb658b..b8ef4e9 100755
--- a/lib/Jifty/Plugin/Authentication/Password/Action/Login.pm
+++ b/lib/Jifty/Plugin/Authentication/Password/Action/Login.pm
@@ -9,7 +9,7 @@ Jifty::Plugin::Authentication::Password::Action::Login - process login with pass
package Jifty::Plugin::Authentication::Password::Action::Login;
use base qw/Jifty::Action/;
-use Digest::MD5 qw/md5_hex/;
+use Digest::MD5 qw(md5_hex);
use HTTP::Date ();
use constant TOKEN_EXPIRE_TIME => 30;
diff --git a/lib/Jifty/Plugin/Authentication/Password/Action/ResendConfirmation.pm b/lib/Jifty/Plugin/Authentication/Password/Action/ResendConfirmation.pm
index a783d82..276d212 100755
--- a/lib/Jifty/Plugin/Authentication/Password/Action/ResendConfirmation.pm
+++ b/lib/Jifty/Plugin/Authentication/Password/Action/ResendConfirmation.pm
@@ -10,7 +10,7 @@ Jifty::Plugin::Authentication::Password::Action::ResendConfirmation - resend con
package Jifty::Plugin::Authentication::Password::Action::ResendConfirmation;
use base qw/Jifty::Action/;
-__PACKAGE__->mk_accessors(qw/user_object/);
+__PACKAGE__->mk_accessors(qw(user_object));
=head2 arguments
diff --git a/lib/Jifty/Plugin/Authentication/Password/Action/SendAccountConfirmation.pm b/lib/Jifty/Plugin/Authentication/Password/Action/SendAccountConfirmation.pm
index 02bb05c..c98a01b 100755
--- a/lib/Jifty/Plugin/Authentication/Password/Action/SendAccountConfirmation.pm
+++ b/lib/Jifty/Plugin/Authentication/Password/Action/SendAccountConfirmation.pm
@@ -10,7 +10,7 @@ Jifty::Plugin::Authentication::Password::Action::SendAccountConfirmation - send
package Jifty::Plugin::Authentication::Password::Action::SendAccountConfirmation;
use base qw/Jifty::Action/;
-__PACKAGE__->mk_accessors(qw/user_object/);
+__PACKAGE__->mk_accessors(qw(user_object));
=head2 arguments
diff --git a/lib/Jifty/Plugin/Authentication/Password/Action/SendPasswordReminder.pm b/lib/Jifty/Plugin/Authentication/Password/Action/SendPasswordReminder.pm
index a63c4db..6c74111 100755
--- a/lib/Jifty/Plugin/Authentication/Password/Action/SendPasswordReminder.pm
+++ b/lib/Jifty/Plugin/Authentication/Password/Action/SendPasswordReminder.pm
@@ -11,7 +11,7 @@ package Jifty::Plugin::Authentication::Password::Action::SendPasswordReminder;
use base qw/Jifty::Action/;
-__PACKAGE__->mk_accessors(qw/user_object/);
+__PACKAGE__->mk_accessors(qw(user_object));
=head2 arguments
diff --git a/lib/Jifty/Plugin/Authentication/Password/Mixin/Model/User.pm b/lib/Jifty/Plugin/Authentication/Password/Mixin/Model/User.pm
index 1529c2a..f1107fd 100644
--- a/lib/Jifty/Plugin/Authentication/Password/Mixin/Model/User.pm
+++ b/lib/Jifty/Plugin/Authentication/Password/Mixin/Model/User.pm
@@ -7,7 +7,7 @@ use base 'Jifty::DBI::Record::Plugin';
use Digest::MD5 qw'';
-our @EXPORT = qw/password_is hashed_password_is regenerate_auth_token has_alternative_auth/;
+our @EXPORT = qw(password_is hashed_password_is regenerate_auth_token has_alternative_auth);
=head1 NAME
diff --git a/lib/Jifty/Plugin/Authentication/Password/View.pm b/lib/Jifty/Plugin/Authentication/Password/View.pm
index 00f808c..f1cec3d 100644
--- a/lib/Jifty/Plugin/Authentication/Password/View.pm
+++ b/lib/Jifty/Plugin/Authentication/Password/View.pm
@@ -24,7 +24,7 @@ Displays a sign-up form.
=cut
template 'signup' => page { title => _('Sign up') } content {
- my ( $action, $next ) = get(qw/action next/);
+ my ( $action, $next ) = get(qw(action next));
Jifty->web->form->start( call => $next );
render_param( $action => 'name' , focus => 1);
render_param( $action => $_ ) for ( grep {$_ ne 'name'} $action->argument_names );
@@ -72,7 +72,7 @@ template login_widget => sub {
} else {
render_param( $action, 'email', focus => 1 );
};
- render_param( $action, $_ ) for (qw/password remember/);
+ render_param( $action, $_ ) for (qw(password remember));
form_return( label => _(q{Login}), submit => $action );
hyperlink(
label => _("Lost your password?"),
@@ -94,7 +94,7 @@ See L<Jifty::Plugin::Authentication::Action::ResetLostPassword>.
=cut
template 'let/reset_lost_password' => page { title => _('Reset lost password') } content {
- my ( $next ) = get(qw/next/);
+ my ( $next ) = get(qw(next));
my $action = Jifty->web->new_action( class => 'ResetLostPassword' );
h1 { {class is 'title'}; _('Reset lost password')};
@@ -126,7 +126,7 @@ See L<Jifty::Plugin::Authentication::Password::SendPasswordReminder>.
=cut
template 'lost_password' => page { title => 'Send a link to reset your password' } content {
- my ( $next ) = get(qw/next/);
+ my ( $next ) = get(qw(next));
my $action = Jifty->web->new_action(
moniker => 'password_reminder',
class => 'SendPasswordReminder',
diff --git a/lib/Jifty/Plugin/CompressedCSSandJS.pm b/lib/Jifty/Plugin/CompressedCSSandJS.pm
index 31115ff..627ba6f 100644
--- a/lib/Jifty/Plugin/CompressedCSSandJS.pm
+++ b/lib/Jifty/Plugin/CompressedCSSandJS.pm
@@ -52,7 +52,7 @@ by default.
=cut
-__PACKAGE__->mk_accessors(qw/css js jsmin cdn skipped_js generate_early/);
+__PACKAGE__->mk_accessors(qw(css js jsmin cdn skipped_js generate_early));
=head2 init
diff --git a/lib/Jifty/Plugin/ErrorTemplates/View.pm b/lib/Jifty/Plugin/ErrorTemplates/View.pm
index e4a3eed..cf2e157 100644
--- a/lib/Jifty/Plugin/ErrorTemplates/View.pm
+++ b/lib/Jifty/Plugin/ErrorTemplates/View.pm
@@ -19,7 +19,7 @@ Default error templates
template '/error/_elements/error_text' => sub {
- my ($error) = get(qw/error/);
+ my ($error) = get(qw(error));
h1 { 'Sorry, something went awry' };
p {
_(
diff --git a/lib/Jifty/Plugin/I18N.pm b/lib/Jifty/Plugin/I18N.pm
index f5aee65..cbd1d0d 100644
--- a/lib/Jifty/Plugin/I18N.pm
+++ b/lib/Jifty/Plugin/I18N.pm
@@ -46,7 +46,7 @@ You will still need to manually do the following to make client side l10n work:
=cut
-__PACKAGE__->mk_accessors(qw/js/);
+__PACKAGE__->mk_accessors(qw(js));
Jifty->web->add_javascript('loc.js');
diff --git a/lib/Jifty/Plugin/IEFixes.pm b/lib/Jifty/Plugin/IEFixes.pm
index 23a9875..1ba267f 100644
--- a/lib/Jifty/Plugin/IEFixes.pm
+++ b/lib/Jifty/Plugin/IEFixes.pm
@@ -26,11 +26,11 @@ Jifty::Plugin::IEFixes - Add javascript files for IE
In your app, if you want to add more IE-specific js:
my ($ief) = Jifty->find_plugin('Jifty::Plugin::IEFixes')
- $ief->add_javascript( qw/file.js/ );
+ $ief->add_javascript( qw(file.js) );
=cut
-__PACKAGE__->mk_accessors(qw/use_external_ie7js js cdn user_js/);
+__PACKAGE__->mk_accessors(qw(use_external_ie7js js cdn user_js));
use constant IE7JS_VERSION => '2.0(beta3)';
diff --git a/lib/Jifty/Plugin/Prototypism.pm b/lib/Jifty/Plugin/Prototypism.pm
index cfcaf3f..9a9ea12 100644
--- a/lib/Jifty/Plugin/Prototypism.pm
+++ b/lib/Jifty/Plugin/Prototypism.pm
@@ -27,7 +27,7 @@ javascript code, however.
=cut
-__PACKAGE__->mk_accessors(qw/cdn/);
+__PACKAGE__->mk_accessors(qw(cdn));
=head1 METHODS
@@ -44,12 +44,12 @@ sub init {
my %opt = @_;
$self->cdn( $opt{ cdn } || '' );
- my @js = qw!
+ my @js = qw(
prototype
scriptaculous/builder
scriptaculous/effects
scriptaculous/controls
- !;
+ );
push @js, 'jifty_compatible' if Jifty->config->framework('ConfigFileVersion') < 4;
Jifty->web->add_javascript( "prototypism/$_.js" ) for @js;
diff --git a/lib/Jifty/Plugin/REST/Dispatcher.pm b/lib/Jifty/Plugin/REST/Dispatcher.pm
index 6317565..ad222b6 100644
--- a/lib/Jifty/Plugin/REST/Dispatcher.pm
+++ b/lib/Jifty/Plugin/REST/Dispatcher.pm
@@ -6,7 +6,7 @@ package Jifty::Plugin::REST::Dispatcher;
-use CGI qw/ start_html end_html ol ul li a dl dt dd /;
+use CGI qw( start_html end_html ol ul li a dl dt dd );
use Carp;
use Jifty::Dispatcher -base;
use Jifty::YAML ();
@@ -504,7 +504,7 @@ Returns true if the column is a valid column to observe on the model
=cut
our @column_attrs =
-qw/ name
+qw( name
documentation
type
default
@@ -520,7 +520,7 @@ qw/ name
aliased_as
label hints
valid_values
-/;
+);
sub valid_column {
my ( $model, $column ) = @_;
@@ -862,7 +862,7 @@ Shows the user all possible parameters to the action.
=cut
-our @param_attrs = qw/
+our @param_attrs = qw(
name
documentation
type
@@ -873,7 +873,7 @@ our @param_attrs = qw/
ajax_validates
length
valid_values
-/;
+);
sub list_action_params {
my ($class) = action($1);
diff --git a/lib/Jifty/Plugin/RequestInspector.pm b/lib/Jifty/Plugin/RequestInspector.pm
index 552c973..8ee0153 100644
--- a/lib/Jifty/Plugin/RequestInspector.pm
+++ b/lib/Jifty/Plugin/RequestInspector.pm
@@ -6,7 +6,7 @@ use Time::HiRes 'time';
sub version { '0.0.2' }
-__PACKAGE__->mk_accessors(qw/url_filter on_cookie persistent/);
+__PACKAGE__->mk_accessors(qw(url_filter on_cookie persistent));
my $current_inspection;
my @requests;
diff --git a/lib/Jifty/Plugin/RequestInspector/Model/Request.pm b/lib/Jifty/Plugin/RequestInspector/Model/Request.pm
index b0fca7e..5efdae8 100644
--- a/lib/Jifty/Plugin/RequestInspector/Model/Request.pm
+++ b/lib/Jifty/Plugin/RequestInspector/Model/Request.pm
@@ -3,7 +3,7 @@ use warnings;
package Jifty::Plugin::RequestInspector::Model::Request;
-use base qw/ Jifty::Record /;
+use base qw( Jifty::Record );
use Jifty::DBI::Schema;
use Jifty::Record schema {
diff --git a/lib/Jifty/Plugin/SQLQueries.pm b/lib/Jifty/Plugin/SQLQueries.pm
index a42bcc7..c9366b2 100644
--- a/lib/Jifty/Plugin/SQLQueries.pm
+++ b/lib/Jifty/Plugin/SQLQueries.pm
@@ -6,7 +6,7 @@ use List::Util 'sum';
use Carp;
use Scalar::Util;
-__PACKAGE__->mk_accessors(qw/stacktrace explain/);
+__PACKAGE__->mk_accessors(qw(stacktrace explain));
sub prereq_plugins { 'RequestInspector' }
diff --git a/lib/Jifty/Plugin/SetupWizard.pm b/lib/Jifty/Plugin/SetupWizard.pm
index 6bc56a9..1998430 100644
--- a/lib/Jifty/Plugin/SetupWizard.pm
+++ b/lib/Jifty/Plugin/SetupWizard.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use base 'Jifty::Plugin';
-__PACKAGE__->mk_accessors(qw/steps/);
+__PACKAGE__->mk_accessors(qw(steps));
sub prereq_plugins { 'Config' }
diff --git a/lib/Jifty/Plugin/SinglePage.pm b/lib/Jifty/Plugin/SinglePage.pm
index 344802b..9b00526 100644
--- a/lib/Jifty/Plugin/SinglePage.pm
+++ b/lib/Jifty/Plugin/SinglePage.pm
@@ -4,7 +4,7 @@ use warnings;
package Jifty::Plugin::SinglePage;
use base 'Jifty::Plugin';
-__PACKAGE__->mk_accessors(qw/region_name/);
+__PACKAGE__->mk_accessors(qw(region_name));
our $NO_SPA;
diff --git a/lib/Jifty/Plugin/SkeletonApp/View.pm b/lib/Jifty/Plugin/SkeletonApp/View.pm
index 8819d01..ce839e0 100644
--- a/lib/Jifty/Plugin/SkeletonApp/View.pm
+++ b/lib/Jifty/Plugin/SkeletonApp/View.pm
@@ -46,7 +46,7 @@ template '__jifty/empty' => sub :Static {
private template 'header' => sub {
- my ($title) = get_current_attr(qw/title/);
+ my ($title) = get_current_attr(qw(title));
Jifty->web->response->content_type('text/html; charset=utf-8');
head {
with(
diff --git a/lib/Jifty/Plugin/TestServerWarnings.pm b/lib/Jifty/Plugin/TestServerWarnings.pm
index 87a275b..d170350 100644
--- a/lib/Jifty/Plugin/TestServerWarnings.pm
+++ b/lib/Jifty/Plugin/TestServerWarnings.pm
@@ -8,7 +8,7 @@ use LWP::Simple qw//;
use Jifty::Plugin::TestServerWarnings::Appender;
use Log::Log4perl::Level;
-__PACKAGE__->mk_accessors(qw/clear_screen/);
+__PACKAGE__->mk_accessors(qw(clear_screen));
=head1 NAME
diff --git a/lib/Jifty/Plugin/ViewDeclarePage/Page.pm b/lib/Jifty/Plugin/ViewDeclarePage/Page.pm
index 08d5d01..aaa0c6c 100644
--- a/lib/Jifty/Plugin/ViewDeclarePage/Page.pm
+++ b/lib/Jifty/Plugin/ViewDeclarePage/Page.pm
@@ -41,7 +41,7 @@ if you're here then you want to change layout, your App::View::Page
should be something like:
package MyApp::View::Page;
- use base qw/Jifty::Plugin::ViewDeclarePage::Page/;
+ use base qw(Jifty::Plugin::ViewDeclarePage::Page);
use Jifty::View::Declare::Helpers;
...
@@ -89,7 +89,7 @@ It's documented!
=cut
-__PACKAGE__->mk_accessors(qw/content_code _title _links _meta/);
+__PACKAGE__->mk_accessors(qw(content_code _title _links _meta));
use constant allow_single_page => 1;
=head1 ACCESSORS
@@ -378,13 +378,13 @@ L</render_link_inpage> and fills _links accessor.
sub instrument_content {
my $self = shift;
- no warnings qw/ redefine once /;
+ no warnings qw( redefine once );
my $seen_title = 0;
local *is::page_title = sub {
shift;
$seen_title = 1;
- no warnings qw/uninitialized/;
+ no warnings qw(uninitialized);
my $res = '';
for (@_) {
# just in case somebody if somebody put a tag into title
diff --git a/lib/Jifty/Record.pm b/lib/Jifty/Record.pm
index 7bbc6b9..a0ef52d 100644
--- a/lib/Jifty/Record.pm
+++ b/lib/Jifty/Record.pm
@@ -17,7 +17,7 @@ representation; that is, it is also a L<Jifty::DBI::Record> as well.
=cut
-use base qw/ Jifty::Object Jifty::DBI::Record/;
+use base qw( Jifty::Object Jifty::DBI::Record);
__PACKAGE__->mk_accessors('_is_readable');
diff --git a/lib/Jifty/Result.pm b/lib/Jifty/Result.pm
index 2419669..eafb38b 100644
--- a/lib/Jifty/Result.pm
+++ b/lib/Jifty/Result.pm
@@ -19,7 +19,7 @@ L<Jifty::Response> object.
use base qw/Jifty::Object Class::Accessor::Fast/;
-__PACKAGE__->mk_accessors(qw/failure action_class message _content/);
+__PACKAGE__->mk_accessors(qw(failure action_class message _content));
=head2 new
diff --git a/lib/Jifty/Schema.pm b/lib/Jifty/Schema.pm
index 98e2991..fb23237 100644
--- a/lib/Jifty/Schema.pm
+++ b/lib/Jifty/Schema.pm
@@ -18,7 +18,7 @@ Jifty::Module::Pluggable->import(
);
our %_SQL_RESERVED = ();
-our @_SQL_RESERVED_OVERRIDE = qw/value/;
+our @_SQL_RESERVED_OVERRIDE = qw(value);
foreach my $dialect ( 'SQL::ReservedWords', &_sql_dialects ) {
foreach my $word ( $dialect->words ) {
push @{ $_SQL_RESERVED{ lc($word) } }, $dialect->reserved_by($word);
diff --git a/lib/Jifty/Script/App.pm b/lib/Jifty/Script/App.pm
index 44ed2af..4ba0322 100644
--- a/lib/Jifty/Script/App.pm
+++ b/lib/Jifty/Script/App.pm
@@ -2,7 +2,7 @@ use warnings;
use strict;
package Jifty::Script::App;
-use base qw/Jifty::Script Class::Accessor::Fast/;
+use base qw(Jifty::Script Class::Accessor::Fast);
use File::Copy;
use Jifty::Config;
@@ -156,7 +156,7 @@ sub _make_directories {
my $self = shift;
mkdir($self->prefix) or die("Can't create " . $self->prefix . ": $!");
- my @dirs = qw/ lib /;
+ my @dirs = qw( lib );
my @dir_parts = split('::',$self->mod_name);
my $lib_dir = "";
foreach my $part (@dir_parts) {
@@ -175,7 +175,7 @@ sub _make_directories {
}
}
sub _directories {
- return qw/
+ return qw(
bin
etc
doc
@@ -190,7 +190,7 @@ sub _directories {
lib/__APP__/Model
lib/__APP__/Action
t
- /;
+ );
}
diff --git a/lib/Jifty/Script/Help.pm b/lib/Jifty/Script/Help.pm
index dd16b41..fedd1a8 100644
--- a/lib/Jifty/Script/Help.pm
+++ b/lib/Jifty/Script/Help.pm
@@ -1,7 +1,7 @@
package Jifty::Script::Help;
use strict;
-use base qw/ App::CLI::Command::Help Jifty::Script /;
-use File::Find qw/find/;
+use base qw( App::CLI::Command::Help Jifty::Script );
+use File::Find qw(find);
sub help_base {
return "Jifty::Manual";
diff --git a/lib/Jifty/Script/Plugin.pm b/lib/Jifty/Script/Plugin.pm
index 5fea325..d40e20a 100644
--- a/lib/Jifty/Script/Plugin.pm
+++ b/lib/Jifty/Script/Plugin.pm
@@ -2,7 +2,7 @@ use warnings;
use strict;
package Jifty::Script::Plugin;
-use base qw/Jifty::Script Class::Accessor::Fast/;
+use base qw(Jifty::Script Class::Accessor::Fast);
use File::Copy;
use Jifty::Config;
@@ -143,7 +143,7 @@ sub _make_directories {
my $self = shift;
mkdir($self->prefix);
- my @dirs = qw/ lib /;
+ my @dirs = qw( lib );
my @dir_parts = split('/',$self->lib_dir);
push @dirs, join('/', 'lib', @dir_parts[0..$_]) for 0.. at dir_parts-1;
@@ -157,7 +157,7 @@ sub _make_directories {
}
sub _directories {
- return qw/
+ return qw(
doc
share
share/po
@@ -167,7 +167,7 @@ sub _directories {
lib/__LIB__/Model
lib/__LIB__/Action
t
- /;
+ );
}
1;
diff --git a/lib/Jifty/Script/Po.pm b/lib/Jifty/Script/Po.pm
index 97f94a2..30fd0fc 100644
--- a/lib/Jifty/Script/Po.pm
+++ b/lib/Jifty/Script/Po.pm
@@ -2,7 +2,7 @@ use warnings;
use strict;
package Jifty::Script::Po;
-use base qw/Jifty::Script Class::Accessor::Fast/;
+use base qw(Jifty::Script Class::Accessor::Fast);
use Pod::Usage;
use File::Copy ();
diff --git a/lib/Jifty/Test.pm b/lib/Jifty/Test.pm
index 7553a6c..29283f7 100644
--- a/lib/Jifty/Test.pm
+++ b/lib/Jifty/Test.pm
@@ -146,7 +146,7 @@ sub import_extra {
# we check for multiple args because of 'no_plan'
if (@$args > 1) {
my %args = @$args;
- @$args = map { $args{$_} ? ($_ => $args{$_ }) : () } qw/tests skip_all/;
+ @$args = map { $args{$_} ? ($_ => $args{$_ }) : () } qw(tests skip_all);
}
}
@@ -223,7 +223,7 @@ sub setup {
# Spit out a plan (if we got one) *before* we load modules, in
# case of compilation errors
unless ($class->builder->has_plan) {
- $class->builder->plan(map { $_ => $args{$_ } } qw/tests skip_all/)
+ $class->builder->plan(map { $_ => $args{$_ } } qw(tests skip_all))
if $args{tests} || $args{skip_all};
}
diff --git a/lib/Jifty/Test/Email.pm b/lib/Jifty/Test/Email.pm
index 291a889..d21ee28 100644
--- a/lib/Jifty/Test/Email.pm
+++ b/lib/Jifty/Test/Email.pm
@@ -7,7 +7,7 @@ use Test::Email;
use Email::Abstract;
use base 'Exporter';
-our @EXPORT = qw/mail_ok/;
+our @EXPORT = qw(mail_ok);
=head1 NAME
diff --git a/lib/Jifty/Test/WWW/Declare.pm b/lib/Jifty/Test/WWW/Declare.pm
index 86c42c5..96cf758 100644
--- a/lib/Jifty/Test/WWW/Declare.pm
+++ b/lib/Jifty/Test/WWW/Declare.pm
@@ -2,7 +2,7 @@
package Jifty::Test::WWW::Declare;
use strict;
use warnings;
-use base qw/Exporter/;
+use base qw(Exporter);
# Sub::Exporter doesn't warn about redefining functions, which we do in the
# import routine below
@@ -13,7 +13,7 @@ use Sub::Exporter -setup => {
BEGIN { require Jifty::Test; require Test::WWW::Declare }
-our @EXPORT = qw/$server $URL/;
+our @EXPORT = qw($server $URL);
our $server;
our $URL;
diff --git a/lib/Jifty/Test/WWW/Mechanize.pm b/lib/Jifty/Test/WWW/Mechanize.pm
index f788f91..f43c215 100644
--- a/lib/Jifty/Test/WWW/Mechanize.pm
+++ b/lib/Jifty/Test/WWW/Mechanize.pm
@@ -12,7 +12,7 @@ use HTML::Lint;
use Test::HTML::Lint qw();
use HTTP::Cookies;
use HTML::TreeBuilder::XPath;
-use List::Util qw/first/;
+use List::Util qw(first);
use Plack::Test;
use Carp;
diff --git a/lib/Jifty/View/Declare/CoreTemplates.pm b/lib/Jifty/View/Declare/CoreTemplates.pm
index 03392ca..5c923ce 100644
--- a/lib/Jifty/View/Declare/CoreTemplates.pm
+++ b/lib/Jifty/View/Declare/CoreTemplates.pm
@@ -37,7 +37,7 @@ These templates are still in Masonland. we're doing something wrong with escapin
template '__jifty/subs' => sub {
- my ($forever) = get(qw/forever/) || 1;
+ my ($forever) = get(qw(forever)) || 1;
Jifty->web->response->content_type("text/html; charset=utf-8");
Jifty->web->response->header('Pragma' => 'no-cache');
@@ -289,7 +289,7 @@ template '__jifty/webservices/xml' => sub {
# Jifty::DBI::Record's yet, which are technically circular data
# structures at some level (current_user of a
# current_user->user_object is itself)
- use Scalar::Util qw/blessed/;
+ use Scalar::Util qw(blessed);
my $content = $results{$_}->content;
diff --git a/lib/Jifty/View/Declare/Helpers.pm b/lib/Jifty/View/Declare/Helpers.pm
index 2703d28..6f73be3 100644
--- a/lib/Jifty/View/Declare/Helpers.pm
+++ b/lib/Jifty/View/Declare/Helpers.pm
@@ -6,11 +6,11 @@ use Template::Declare::Tags;
use base qw/Template::Declare Exporter/;
our @EXPORT = (
- qw/hyperlink tangent redirect new_action
+ qw(hyperlink tangent redirect new_action
form_submit form_return form_next_page page content
wrapper request get set render_param render_hidden
render_action render_region render_mason
- current_user js_handlers/,
+ current_user js_handlers),
@Template::Declare::Tags::EXPORT,
@Template::Declare::Tags::TagSubs, # Backward compatibility only
@Template::Declare::Tags::TAG_SUB_LIST,
@@ -35,7 +35,7 @@ If called in scalar context, pulls the first item in C<args> and returns it.
If called in list context, returns the values of all items in C<args>.
my $action = get('action');
- my ($action, $object) = get(qw/action object/);
+ my ($action, $object) = get(qw(action object));
=cut
diff --git a/lib/Jifty/View/Declare/Page.pm b/lib/Jifty/View/Declare/Page.pm
index 80582d2..81364e7 100644
--- a/lib/Jifty/View/Declare/Page.pm
+++ b/lib/Jifty/View/Declare/Page.pm
@@ -17,7 +17,7 @@ This library provides page wrappers
use Jifty::View::Declare::Helpers;
-__PACKAGE__->mk_accessors(qw/content_code done_header _title _meta/);
+__PACKAGE__->mk_accessors(qw(content_code done_header _title _meta));
use constant allow_single_page => 1;
=head2 new
@@ -30,7 +30,7 @@ sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
- my ($title) = get_current_attr(qw/title/);
+ my ($title) = get_current_attr(qw(title));
$self->_title($title);
$self->_title($self->_meta->{title})
@@ -109,7 +109,7 @@ sub render_page {
attr { id is 'content' };
div {
{
- no warnings qw/ redefine once /;
+ no warnings qw( redefine once );
local *is::title = $self->mk_title_handler();
$self->render_pre_content_hook();
@@ -137,7 +137,7 @@ sub mk_title_handler {
return sub {
shift;
for (@_) {
- no warnings qw/ uninitialized /;
+ no warnings qw( uninitialized );
if ( ref($_) eq 'CODE' ) {
Template::Declare->buffer->push( private => 1 );
$_->();
diff --git a/lib/Jifty/View/Mason/Handler.pm b/lib/Jifty/View/Mason/Handler.pm
index a74ad72..ebb1c0e 100644
--- a/lib/Jifty/View/Mason/Handler.pm
+++ b/lib/Jifty/View/Mason/Handler.pm
@@ -17,19 +17,19 @@ L<HTML::Mason::CGIHandler> interface to interact with it.
use HTML::Mason;
use HTML::Mason::Utils;
-use Params::Validate qw/:all/;
+use Params::Validate qw(:all);
use HTML::Mason::Exceptions;
use HTML::Mason::FakeApache;
use Encode qw();
use Jifty::View::Mason::Request;
use Class::Container;
-use base qw/Jifty::View Class::Container/;
+use base qw(Jifty::View Class::Container);
use HTML::Mason::MethodMaker
- ( read_write => [ qw/ interp / ] );
+ ( read_write => [ qw( interp ) ] );
-use vars qw/$VERSION/;
+use vars qw($VERSION);
__PACKAGE__->valid_params
(
diff --git a/lib/Jifty/View/Mason/Request.pm b/lib/Jifty/View/Mason/Request.pm
index 640437d..884d374 100644
--- a/lib/Jifty/View/Mason/Request.pm
+++ b/lib/Jifty/View/Mason/Request.pm
@@ -16,7 +16,7 @@ Subclass of L<HTML::Mason::Request> which is customised for Jifty's use.
use HTML::Mason::Exceptions;
use HTML::Mason::Request;
-use base qw/HTML::Mason::Request/;
+use base qw(HTML::Mason::Request);
=head2 auto_send_headers
diff --git a/lib/Jifty/Web.pm b/lib/Jifty/Web.pm
index e268060..4eec267 100644
--- a/lib/Jifty/Web.pm
+++ b/lib/Jifty/Web.pm
@@ -11,26 +11,26 @@ Jifty::Web - Web framework for a Jifty application
use XML::Writer;
use CSS::Squish;
-use Digest::MD5 qw/md5_hex/;
-use Scalar::Util qw/blessed/;
-use Carp qw/carp/;
+use Digest::MD5 qw(md5_hex);
+use Scalar::Util qw(blessed);
+use Carp qw(carp);
use base qw/Class::Accessor::Fast Class::Data::Inheritable Jifty::Object/;
use vars qw/$SERIAL @JS_INCLUDES/;
__PACKAGE__->mk_accessors(
- qw/next_page force_redirect request response session temporary_current_user/
+ qw(next_page force_redirect request response session temporary_current_user)
);
__PACKAGE__->mk_classdata($_)
- for qw/cached_css cached_css_digest cached_css_time
- css_files javascript_libs external_javascript_libs/;
+ for qw(cached_css cached_css_digest cached_css_time
+ css_files javascript_libs external_javascript_libs);
-__PACKAGE__->css_files([qw/ main.css /]);
+__PACKAGE__->css_files([qw( main.css )]);
__PACKAGE__->external_javascript_libs([]);
-__PACKAGE__->javascript_libs([qw!
+__PACKAGE__->javascript_libs([qw(
json.js
jquery-1.4.1.js
iutil.js
@@ -70,7 +70,7 @@ __PACKAGE__->javascript_libs([qw!
ui.sortable.js
ordered-list.js
uploads.js
-!]);
+)]);
use Class::Trigger;
@@ -1265,7 +1265,7 @@ the C<start> sub of your main application class. For example if your
application is Foo then in L<lib/Foo.pm>
sub start {
- Jifty->web->add_javascript(qw/ jslib1.js jslib2.js / );
+ Jifty->web->add_javascript(qw( jslib1.js jslib2.js ) );
}
The L<add_javascript> method will append the files to javascript_libs.
diff --git a/lib/Jifty/Web/FileUpload.pm b/lib/Jifty/Web/FileUpload.pm
index 9058af5..414f1a8 100644
--- a/lib/Jifty/Web/FileUpload.pm
+++ b/lib/Jifty/Web/FileUpload.pm
@@ -3,7 +3,7 @@ use strict;
use warnings;
use base qw/Jifty::Object Class::Accessor::Fast/;
-__PACKAGE__->mk_accessors(qw/filehandle _content filename content_type/);
+__PACKAGE__->mk_accessors(qw(filehandle _content filename content_type));
use overload (
q{""} => sub { $_[0]->filename },
diff --git a/lib/Jifty/Web/Form.pm b/lib/Jifty/Web/Form.pm
index fd5372a..9865ecd 100644
--- a/lib/Jifty/Web/Form.pm
+++ b/lib/Jifty/Web/Form.pm
@@ -5,7 +5,7 @@ package Jifty::Web::Form;
use base qw/Jifty::Object Class::Accessor::Fast/;
-__PACKAGE__->mk_accessors(qw/actions printed_actions name call is_open disable_autocomplete target submit_to onsubmit class/);
+__PACKAGE__->mk_accessors(qw(actions printed_actions name call is_open disable_autocomplete target submit_to onsubmit class));
# Alias id to name
*id = *name;
diff --git a/lib/Jifty/Web/Form/Clickable.pm b/lib/Jifty/Web/Form/Clickable.pm
index 13032d0..3d1fc46 100644
--- a/lib/Jifty/Web/Form/Clickable.pm
+++ b/lib/Jifty/Web/Form/Clickable.pm
@@ -29,10 +29,10 @@ L<Jifty::Web::Form::Element/accessors>.
sub accessors {
shift->SUPER::accessors,
- qw/url escape_label tooltip continuation call returns submit target preserve_state render_as_button render_as_link/;
+ qw(url escape_label tooltip continuation call returns submit target preserve_state render_as_button render_as_link);
}
__PACKAGE__->mk_accessors(
- qw/url escape_label tooltip continuation call returns submit target preserve_state render_as_button render_as_link/
+ qw(url escape_label tooltip continuation call returns submit target preserve_state render_as_button render_as_link)
);
=head2 new PARAMHASH
diff --git a/lib/Jifty/Web/Form/Element.pm b/lib/Jifty/Web/Form/Element.pm
index 1d6ac18..853072b 100644
--- a/lib/Jifty/Web/Form/Element.pm
+++ b/lib/Jifty/Web/Form/Element.pm
@@ -170,11 +170,11 @@ error from your browser.
=cut
-use constant handlers => qw/
+use constant handlers => qw(
onclick onchange ondblclick onmousedown onmouseup onmouseover
onmousemove onmouseout onfocus onblur onkeypress onkeydown
onkeyup onselect
-/;
+);
use constant possible_handlers => { map {($_ => 1)} handlers};
@@ -187,10 +187,10 @@ C<new> parameter hash.
=cut
-sub accessors { handlers, qw/class title key_binding key_binding_label id label tooltip continuation rel/ }
+sub accessors { handlers, qw(class title key_binding key_binding_label id label tooltip continuation rel) }
__PACKAGE__->mk_accessors(map "_$_", handlers);
-__PACKAGE__->mk_accessors(qw/class title key_binding key_binding_label id label tooltip continuation rel/ );
+__PACKAGE__->mk_accessors(qw(class title key_binding key_binding_label id label tooltip continuation rel) );
=head2 new PARAMHASH OVERRIDE
diff --git a/lib/Jifty/Web/Form/Field.pm b/lib/Jifty/Web/Form/Field.pm
index 09b75c4..af6b3ba 100644
--- a/lib/Jifty/Web/Form/Field.pm
+++ b/lib/Jifty/Web/Form/Field.pm
@@ -119,16 +119,16 @@ C<new>. Subclasses should extend this list.
=cut
-my @new_fields = qw/
+my @new_fields = qw(
name type sticky sticky_value default_value action
mandatory ajax_validates ajax_canonicalizes autocompleter preamble hints
placeholder focus render_mode display_length max_length _element_id
disable_autocomplete multiple attributes
-/;
+);
-my @semiexposed_fields = qw/
+my @semiexposed_fields = qw(
label input_name available_values
-/;
+);
sub accessors {
shift->SUPER::accessors(), @new_fields, @semiexposed_fields;
@@ -476,7 +476,7 @@ Output the start of div that wraps the form field
sub render_wrapper_start {
my $self = shift;
- my @classes = qw/form_field/;
+ my @classes = qw(form_field);
if ($self->mandatory) { push @classes, 'mandatory' }
if ($self->name) { push @classes, 'argument-'.$self->name }
Jifty->web->out('<div class="'.join(' ', @classes).'">' ."\n");
diff --git a/lib/Jifty/Web/Form/Field/Textarea.pm b/lib/Jifty/Web/Form/Field/Textarea.pm
index a9b85ad..80b3501 100644
--- a/lib/Jifty/Web/Form/Field/Textarea.pm
+++ b/lib/Jifty/Web/Form/Field/Textarea.pm
@@ -5,7 +5,7 @@ package Jifty::Web::Form::Field::Textarea;
use base qw/Jifty::Web::Form::Field/;
-__PACKAGE__->mk_accessors(qw/rows cols/);
+__PACKAGE__->mk_accessors(qw(rows cols));
=head1 NAME
diff --git a/lib/Jifty/Web/Form/Link.pm b/lib/Jifty/Web/Form/Link.pm
index 719d1c9..bdf7f7b 100644
--- a/lib/Jifty/Web/Form/Link.pm
+++ b/lib/Jifty/Web/Form/Link.pm
@@ -31,8 +31,8 @@ L<Jifty::Web::Form::Element/accessors>.
=cut
-sub accessors { shift->SUPER::accessors(), qw/url escape_label tooltip target rel/; }
-__PACKAGE__->mk_accessors(qw/url escape_label tooltip target rel/);
+sub accessors { shift->SUPER::accessors(), qw(url escape_label tooltip target rel); }
+__PACKAGE__->mk_accessors(qw(url escape_label tooltip target rel));
=head2 new PARAMHASH
diff --git a/lib/Jifty/Web/Menu.pm b/lib/Jifty/Web/Menu.pm
index dd4b2d8..ac66318 100644
--- a/lib/Jifty/Web/Menu.pm
+++ b/lib/Jifty/Web/Menu.pm
@@ -6,12 +6,12 @@ use warnings;
use base qw/Class::Accessor::Fast/;
use URI;
-use Scalar::Util qw/weaken/;
+use Scalar::Util qw(weaken);
-__PACKAGE__->mk_accessors(qw/
+__PACKAGE__->mk_accessors(qw(
label sort_order link target escape_label class render_children_inline
raw_html
-/);
+));
=head1 NAME
diff --git a/lib/Jifty/Web/PageRegion.pm b/lib/Jifty/Web/PageRegion.pm
index 57b2ab9..aaa8387 100644
--- a/lib/Jifty/Web/PageRegion.pm
+++ b/lib/Jifty/Web/PageRegion.pm
@@ -15,7 +15,7 @@ can be updated via AJAX or via query parameters.
=cut
use base qw/Jifty::Object Class::Accessor::Fast/;
-__PACKAGE__->mk_accessors(qw/name force_path force_arguments default_path default_arguments qualified_name parent region_wrapper lazy loading_path class/);
+__PACKAGE__->mk_accessors(qw(name force_path force_arguments default_path default_arguments qualified_name parent region_wrapper lazy loading_path class));
use Jifty::JSON;
use Encode ();
diff --git a/share/web/templates/__jifty/webservices/xml b/share/web/templates/__jifty/webservices/xml
index 917ccd5..c4b2ae4 100644
--- a/share/web/templates/__jifty/webservices/xml
+++ b/share/web/templates/__jifty/webservices/xml
@@ -104,7 +104,7 @@ Jifty->web->response->content_type('text/xml; charset=UTF-8');
Jifty->web->out($output);
</%init>
<%once>
-use Scalar::Util qw/blessed/;
+use Scalar::Util qw(blessed);
use XML::Simple;
sub stripkids {
my $top = shift;
diff --git a/share/web/templates/helpers/calendar.html b/share/web/templates/helpers/calendar.html
index 187b394..dd8e8df 100644
--- a/share/web/templates/helpers/calendar.html
+++ b/share/web/templates/helpers/calendar.html
@@ -50,12 +50,12 @@ my @today = localtime(time());
my @weekdays;
push @weekdays, $_
- for qw/Sun Mon Tue Wed Thu Fri Sat/;
+ for qw(Sun Mon Tue Wed Thu Fri Sat);
my @months;
push @months, $_
- for qw/January February March April May June July August
- September October November December/;
+ for qw(January February March April May June July August
+ September October November December);
unless ($DisplayedYear) {
$DisplayedMonth = $today[4] + 1;
diff --git a/t/01-dependencies.t b/t/01-dependencies.t
index f0626d8..95fc74b 100644
--- a/t/01-dependencies.t
+++ b/t/01-dependencies.t
@@ -10,7 +10,7 @@ Makefile.PL as dependencies.
=cut
-use Test::More qw/no_plan/;
+use Test::More qw(no_plan);
use File::Find;
use Module::CoreList;
diff --git a/t/01-test-web.t b/t/01-test-web.t
index 19edc56..86f1f22 100644
--- a/t/01-test-web.t
+++ b/t/01-test-web.t
@@ -23,11 +23,11 @@ isa_ok( $web->response, "Jifty::Response" );
{
package Jifty::Request::Subclass;
use Any::Moose;
- use base qw/Jifty::Request/;
+ use base qw(Jifty::Request);
package Jifty::Response::Subclass;
use Any::Moose;
- use base qw/Jifty::Response/;
+ use base qw(Jifty::Response);
}
diff --git a/t/01-version_checks.t b/t/01-version_checks.t
index ae95370..f56699b 100644
--- a/t/01-version_checks.t
+++ b/t/01-version_checks.t
@@ -1,6 +1,6 @@
#!/usr/bin/env perl -w
use strict;
-use Test::More qw/no_plan/;
+use Test::More qw(no_plan);
# by Eric Wilhelm in response to Randal Schwartz pointing out that
# CPAN.pm chokes on the VERSION >... construct
diff --git a/t/Continuations/bin/jifty b/t/Continuations/bin/jifty
index 771d886..821cc7d 100755
--- a/t/Continuations/bin/jifty
+++ b/t/Continuations/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/t/Jifty.pm b/t/Jifty.pm
index c567313..fc07d39 100644
--- a/t/Jifty.pm
+++ b/t/Jifty.pm
@@ -16,7 +16,7 @@ use Test::Base::Filter -Base;
sub request_from_webform {
my $form = shift;
my $r = Jifty::Request->new->from_webform(%$form);
- delete $r->{$_} for qw/env headers parameters cookies scheme/;
+ delete $r->{$_} for qw(env headers parameters cookies scheme);
return $r;
}
diff --git a/t/Mapper/bin/jifty b/t/Mapper/bin/jifty
index 771d886..821cc7d 100755
--- a/t/Mapper/bin/jifty
+++ b/t/Mapper/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/t/TestApp-Bulk/bin/jifty b/t/TestApp-Bulk/bin/jifty
index 771d886..821cc7d 100644
--- a/t/TestApp-Bulk/bin/jifty
+++ b/t/TestApp-Bulk/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/t/TestApp-Dispatcher/t/under.t b/t/TestApp-Dispatcher/t/under.t
index dd9f670..351e219 100644
--- a/t/TestApp-Dispatcher/t/under.t
+++ b/t/TestApp-Dispatcher/t/under.t
@@ -26,17 +26,17 @@ sub get_nok($) {
is $mech->status, 404, "no $path (404)";
}
-for(qw!some another some/deep!) {
+for(qw(some another some/deep)) {
get_ok("/under_any/$_");
$mech->content_contains("woot");
}
-for(qw!some another some/deep!) {
+for(qw(some another some/deep)) {
get_ok("/under/some_any/$_");
$mech->content_contains("woot");
}
-for(qw!some another some/deep!) {
+for(qw(some another some/deep)) {
get_ok("/under_re/$_");
$mech->content_contains("woot: $_");
}
diff --git a/t/TestApp-JiftyJS/bin/jifty b/t/TestApp-JiftyJS/bin/jifty
index 6128393..59debb2 100755
--- a/t/TestApp-JiftyJS/bin/jifty
+++ b/t/TestApp-JiftyJS/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
use Jifty;
diff --git a/t/TestApp-JiftyJS/lib/TestApp/JiftyJS/Action/Play.pm b/t/TestApp-JiftyJS/lib/TestApp/JiftyJS/Action/Play.pm
index 1f14cba..bb8afcb 100644
--- a/t/TestApp-JiftyJS/lib/TestApp/JiftyJS/Action/Play.pm
+++ b/t/TestApp-JiftyJS/lib/TestApp/JiftyJS/Action/Play.pm
@@ -17,7 +17,7 @@ use Jifty::Action schema {
param mood =>
type is 'text',
ajax validates,
- valid are qw/happy angry normal/;
+ valid are qw(happy angry normal);
param flavor =>
autocompleter is \&autocomplete_flavor,
@@ -62,7 +62,7 @@ sub autocomplete_flavor {
my ($self, $value) = @_;
return grep {
$_ =~ /$value/i;
- } sort qw/ berry vanilla caramel caracara honey miso blueberry strawberry /;
+ } sort qw( berry vanilla caramel caracara honey miso blueberry strawberry );
}
diff --git a/t/TestApp-JiftyJS/lib/TestApp/JiftyJS/View.pm b/t/TestApp-JiftyJS/lib/TestApp/JiftyJS/View.pm
index 025e911..d2621d1 100644
--- a/t/TestApp-JiftyJS/lib/TestApp/JiftyJS/View.pm
+++ b/t/TestApp-JiftyJS/lib/TestApp/JiftyJS/View.pm
@@ -170,7 +170,7 @@ template '/act/play' => page {
template '/effects' => page {
h1 { "Jifty.update() tests with effects" };
- for (qw/Appear SlideDown/) {
+ for (qw(Appear SlideDown)) {
hyperlink(
label => "Append ($_)",
onclick => {
diff --git a/t/TestApp-JiftyJS/t/2-behaviour.t b/t/TestApp-JiftyJS/t/2-behaviour.t
index 5d0fa29..df05a2f 100644
--- a/t/TestApp-JiftyJS/t/2-behaviour.t
+++ b/t/TestApp-JiftyJS/t/2-behaviour.t
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Jifty::Test::Dist qw/no_plan/;
+use Jifty::Test::Dist qw(no_plan);
use Jifty::Test::WWW::Selenium;
use utf8;
@@ -10,7 +10,7 @@ my $server = Jifty::Test->make_server;
my $sel = Jifty::Test::WWW::Selenium->rc_ok($server);
my $URL = $server->started_ok;
-for my $test_file (qw/01.behaviour.html 02.action.html/) {
+for my $test_file (qw(01.behaviour.html 02.action.html)) {
$sel->open_ok("/static/js-test/$test_file");
my $html = $sel->get_text("test");
like( $html, qr/(\d+)\.\.(\d+)/, 'contains tests' );
diff --git a/t/TestApp-Mason/bin/jifty b/t/TestApp-Mason/bin/jifty
index 6128393..59debb2 100644
--- a/t/TestApp-Mason/bin/jifty
+++ b/t/TestApp-Mason/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
use Jifty;
diff --git a/t/TestApp-Notifications/lib/TestApp/Notification/Foo.pm b/t/TestApp-Notifications/lib/TestApp/Notification/Foo.pm
index bbec372..1077427 100644
--- a/t/TestApp-Notifications/lib/TestApp/Notification/Foo.pm
+++ b/t/TestApp-Notifications/lib/TestApp/Notification/Foo.pm
@@ -1,7 +1,7 @@
package TestApp::Notification::Foo;
use warnings;
use strict;
-use base qw/TestApp::Notification/;
+use base qw(TestApp::Notification);
use utf8;
sub setup {
diff --git a/t/TestApp-Plugin-ActorMetadata/t/mixin.t b/t/TestApp-Plugin-ActorMetadata/t/mixin.t
index c58decd..6eff645 100644
--- a/t/TestApp-Plugin-ActorMetadata/t/mixin.t
+++ b/t/TestApp-Plugin-ActorMetadata/t/mixin.t
@@ -8,4 +8,4 @@ use Jifty::Test::Dist;
is_deeply(
[sort map { $_->name } TestApp::Plugin::ActorMetadata::Model::Evil->columns],
-[qw/created_by created_on id my_mixin_hello updated_by updated_on/]);
+[qw(created_by created_on id my_mixin_hello updated_by updated_on)]);
diff --git a/t/TestApp-Plugin-AppPluginHasModels/bin/jifty b/t/TestApp-Plugin-AppPluginHasModels/bin/jifty
index 6128393..59debb2 100755
--- a/t/TestApp-Plugin-AppPluginHasModels/bin/jifty
+++ b/t/TestApp-Plugin-AppPluginHasModels/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
use Jifty;
diff --git a/t/TestApp-Plugin-CompressedCSSandJS/bin/jifty b/t/TestApp-Plugin-CompressedCSSandJS/bin/jifty
index 6128393..59debb2 100755
--- a/t/TestApp-Plugin-CompressedCSSandJS/bin/jifty
+++ b/t/TestApp-Plugin-CompressedCSSandJS/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
use Jifty;
diff --git a/t/TestApp-Plugin-News/bin/jifty b/t/TestApp-Plugin-News/bin/jifty
index 67a5487..8f0e01c 100755
--- a/t/TestApp-Plugin-News/bin/jifty
+++ b/t/TestApp-Plugin-News/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/t/TestApp-Plugin-OnClick/bin/jifty b/t/TestApp-Plugin-OnClick/bin/jifty
index 6128393..59debb2 100755
--- a/t/TestApp-Plugin-OnClick/bin/jifty
+++ b/t/TestApp-Plugin-OnClick/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
use Jifty;
diff --git a/t/TestApp-Plugin-PasswordAuth/bin/jifty b/t/TestApp-Plugin-PasswordAuth/bin/jifty
index 67a5487..8f0e01c 100755
--- a/t/TestApp-Plugin-PasswordAuth/bin/jifty
+++ b/t/TestApp-Plugin-PasswordAuth/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/t/TestApp-Plugin-PasswordAuth/lib/TestApp/Plugin/FasterSwallow.pm b/t/TestApp-Plugin-PasswordAuth/lib/TestApp/Plugin/FasterSwallow.pm
index 0a3462c..b2e4446 100644
--- a/t/TestApp-Plugin-PasswordAuth/lib/TestApp/Plugin/FasterSwallow.pm
+++ b/t/TestApp-Plugin-PasswordAuth/lib/TestApp/Plugin/FasterSwallow.pm
@@ -5,7 +5,7 @@ package TestApp::Plugin::FasterSwallow;
use base 'Jifty::DBI::Record::Plugin';
use Jifty::DBI::Schema;
use Jifty::DBI::Record schema {
- column swallow_type => valid are qw/african european/, default is 'african';
+ column swallow_type => valid are qw(african european), default is 'african';
};
diff --git a/t/TestApp-Plugin-PasswordAuth/lib/TestApp/Plugin/PasswordAuth/CurrentUser.pm b/t/TestApp-Plugin-PasswordAuth/lib/TestApp/Plugin/PasswordAuth/CurrentUser.pm
index 3d2edb1..307efda 100644
--- a/t/TestApp-Plugin-PasswordAuth/lib/TestApp/Plugin/PasswordAuth/CurrentUser.pm
+++ b/t/TestApp-Plugin-PasswordAuth/lib/TestApp/Plugin/PasswordAuth/CurrentUser.pm
@@ -3,9 +3,9 @@ package TestApp::Plugin::PasswordAuth::CurrentUser;
use strict;
use warnings;
-use base qw/Jifty::CurrentUser/;
+use base qw(Jifty::CurrentUser);
-__PACKAGE__->mk_accessors(qw/group/);
+__PACKAGE__->mk_accessors(qw(group));
sub _init {
my $self = shift;
diff --git a/t/TestApp-Plugin-REST/bin/jifty b/t/TestApp-Plugin-REST/bin/jifty
index 771d886..821cc7d 100755
--- a/t/TestApp-Plugin-REST/bin/jifty
+++ b/t/TestApp-Plugin-REST/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/t/TestApp-Plugin-REST/t/02-basic-use.t b/t/TestApp-Plugin-REST/t/02-basic-use.t
index e7ac73e..f29abfd 100644
--- a/t/TestApp-Plugin-REST/t/02-basic-use.t
+++ b/t/TestApp-Plugin-REST/t/02-basic-use.t
@@ -125,7 +125,7 @@ is_deeply($content, []);
# on GET '/=/action' => \&list_actions;
-my @actions = qw/
+my @actions = qw(
TestApp.Plugin.REST.Action.CreateGroup
TestApp.Plugin.REST.Action.UpdateGroup
TestApp.Plugin.REST.Action.SearchGroup
@@ -138,7 +138,7 @@ my @actions = qw/
TestApp.Plugin.REST.Action.DoSomething
Jifty.Action.AboutMe
Jifty.Action.Autocomplete
- Jifty.Action.Redirect/;
+ Jifty.Action.Redirect);
$mech->get_ok('/=/action/');
is($mech->status, 200);
diff --git a/t/TestApp-Plugin-REST/t/03-format.t b/t/TestApp-Plugin-REST/t/03-format.t
index 00576b2..ab54460 100644
--- a/t/TestApp-Plugin-REST/t/03-format.t
+++ b/t/TestApp-Plugin-REST/t/03-format.t
@@ -204,7 +204,7 @@ is_deeply($content, []);
# on GET '/=/action' => \&list_actions;
-my @actions = qw/
+my @actions = qw(
TestApp.Plugin.REST.Action.CreateGroup
TestApp.Plugin.REST.Action.UpdateGroup
TestApp.Plugin.REST.Action.SearchGroup
@@ -217,7 +217,7 @@ my @actions = qw/
TestApp.Plugin.REST.Action.DoSomething
Jifty.Action.AboutMe
Jifty.Action.Autocomplete
- Jifty.Action.Redirect/;
+ Jifty.Action.Redirect);
$mech->get_ok('/=/action/');
is($mech->status, 200);
diff --git a/t/TestApp-Plugin-SetupWizard/bin/jifty b/t/TestApp-Plugin-SetupWizard/bin/jifty
index 771d886..821cc7d 100755
--- a/t/TestApp-Plugin-SetupWizard/bin/jifty
+++ b/t/TestApp-Plugin-SetupWizard/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/t/TestApp-Plugin-SetupWizard/lib/TestApp/Plugin/SetupWizard/Test.pm b/t/TestApp-Plugin-SetupWizard/lib/TestApp/Plugin/SetupWizard/Test.pm
index 51613ed..f9215c9 100644
--- a/t/TestApp-Plugin-SetupWizard/lib/TestApp/Plugin/SetupWizard/Test.pm
+++ b/t/TestApp-Plugin-SetupWizard/lib/TestApp/Plugin/SetupWizard/Test.pm
@@ -13,7 +13,7 @@ use base 'Exporter';
use Jifty::Test::Dist ();
use Jifty::Test::WWW::Mechanize ();
-our @EXPORT = qw/site_config_is/;
+our @EXPORT = qw(site_config_is);
sub import {
my $class = shift;
diff --git a/t/TestApp-Plugin-SinglePage/bin/jifty b/t/TestApp-Plugin-SinglePage/bin/jifty
index 6128393..59debb2 100755
--- a/t/TestApp-Plugin-SinglePage/bin/jifty
+++ b/t/TestApp-Plugin-SinglePage/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
use Jifty;
diff --git a/t/TestApp-RestartServer/bin/jifty b/t/TestApp-RestartServer/bin/jifty
index 6128393..59debb2 100644
--- a/t/TestApp-RestartServer/bin/jifty
+++ b/t/TestApp-RestartServer/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
use Jifty;
diff --git a/t/TestApp-RestartServer/t/restart.t b/t/TestApp-RestartServer/t/restart.t
index 1b71a03..7f44a1a 100644
--- a/t/TestApp-RestartServer/t/restart.t
+++ b/t/TestApp-RestartServer/t/restart.t
@@ -5,7 +5,7 @@ use Test::More;
use File::Spec;
use Jifty::Test::WWW::Mechanize;
use Test::Script::Run 'get_perl_cmd';
-use FindBin qw/$Bin/;
+use FindBin qw($Bin);
use Cwd;
my $cwd;
diff --git a/t/TestApp/bin/jifty b/t/TestApp/bin/jifty
index 771d886..821cc7d 100755
--- a/t/TestApp/bin/jifty
+++ b/t/TestApp/bin/jifty
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use warnings;
use strict;
-use File::Basename qw/dirname/;
+use File::Basename qw(dirname);
use UNIVERSAL::require;
BEGIN {
diff --git a/t/TestApp/lib/TestApp/Model/User.pm b/t/TestApp/lib/TestApp/Model/User.pm
index d15dd2b..27e7a93 100644
--- a/t/TestApp/lib/TestApp/Model/User.pm
+++ b/t/TestApp/lib/TestApp/Model/User.pm
@@ -33,7 +33,7 @@ column 'created_on' =>
type is 'datetime',
is immutable,
default is defer { DateTime->now },
- filters are qw/Jifty::Filter::DateTime Jifty::DBI::Filter::Date/;
+ filters are qw(Jifty::Filter::DateTime Jifty::DBI::Filter::Date);
};
diff --git a/t/TestApp/t/03-static.t b/t/TestApp/t/03-static.t
index ed6ff40..87a861a 100644
--- a/t/TestApp/t/03-static.t
+++ b/t/TestApp/t/03-static.t
@@ -12,7 +12,7 @@ isa_ok($server, 'Jifty::TestServer');
my $URL = $server->started_ok;
my $mech = Jifty::Test::WWW::Mechanize->new();
-for my $image (qw/pony.jpg/) {
+for my $image (qw(pony.jpg)) {
$mech->get_ok("$URL/images/$image");
my $res = $mech->response;
-----------------------------------------------------------------------
More information about the Jifty-commit
mailing list