Permalink
Browse files

use strict

  • Loading branch information...
Michael Gray
Michael Gray committed Oct 23, 2015
1 parent b946a81 commit 94c990bdca0c88688f9cc280dde72eea9cee5044
@@ -1,12 +1,10 @@
package Squatting::Controller;
#use strict;
#no strict 'refs';
use strict;
no strict 'refs';
#use warnings;
#no warnings 'redefine';
#our $AUTOLOAD;
# constructor
sub new {
bless { name => $_[1], urls => $_[2], @_[3..$#_] } => $_[0];
View
@@ -1,7 +1,6 @@
package Squatting::Mapper;
#use strict;
#no strict 'refs'
use strict;
#use warnings;
use base 'Continuity::Mapper';
@@ -10,7 +9,11 @@ sub get_session_id_from_hit {
my $app = $self->{app};
my $session_id = $self->SUPER::get_session_id_from_hit($request);
my $path = $request->uri->path;
my ($controller, $params) = &{$app."::D"}($path);
my ($controller, $params);
{
no strict 'refs';
($controller, $params) = &{$app."::D"}($path);
}
my $method = lc $request->method;
my $queue = $controller->{queue}->{$method};
if (defined($queue)) {
View
@@ -1,7 +1,7 @@
package Squatting::On::CGI;
#use strict;
#no strict 'refs';
use strict;
no strict 'refs';
#use warnings;
use CGI;
use CGI::Cookie;
View
@@ -1,10 +1,10 @@
package Squatting::View;
#use strict;
use strict;
#use warnings;
#no warnings 'redefine';
#our $AUTOLOAD;
our $AUTOLOAD;
# constructor
sub new {
@@ -1,5 +1,7 @@
package Squatting::With::AccessTrace;
use strict;
use Data::Dump 'pp';
our $I = 1;
@@ -1,6 +1,6 @@
package Squatting::With::Coro::Debug;
#use strict;
use strict;
#use warnings;
use Coro::Debug;

0 comments on commit 94c990b

Please sign in to comment.