oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

no code allowed before use strict. PBP/429. This check found a bug in Asset::Wobject::HttpProxy::Parse.pm

Browse source
This commit is contained in:
Colin Kuskie 2007-12-05 16:55:40 +00:00
parent 08fbd46d28
commit 98863256ea
9 changed files with 26 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset/Event.pm
View file

@ -1,6 +1,8 @@
package WebGUI::Asset::Event;
$VERSION = "0.0.0";
use strict;
our $VERSION = "0.0.0";
####################################################################
# WebGUI is Copyright 2001-2007 Plain Black Corporation.
@ -12,8 +14,6 @@ $VERSION = "0.0.0";
# http://www.plainblack.com info@plainblack.com
####################################################################
use strict;
use Tie::IxHash;
use Carp qw(croak);
use Storable qw(nfreeze thaw);

6
lib/WebGUI/Asset/Wobject/Calendar.pm
View file

@ -1,6 +1,8 @@
package WebGUI::Asset::Wobject::Calendar;
$VERSION = "0.0.0";
use strict;
our $VERSION = "0.0.0";
####################################################################
# WebGUI is Copyright 2001-2007 Plain Black Corporation.
@ -12,8 +14,6 @@ $VERSION = "0.0.0";
# http://www.plainblack.com info@plainblack.com
####################################################################
use strict;
use Tie::IxHash;
use WebGUI::Utility;

6
lib/WebGUI/Asset/Wobject/HttpProxy/Parse.pm
View file

@ -1,5 +1,7 @@
package WebGUI::Asset::Wobject::HttpProxy::Parse;
use strict;
=head1 LEGAL
-------------------------------------------------------------------
@ -70,7 +72,7 @@ sub new {
$self->{assetUrl} = shift;
my $pfilter = shift;
$pfiler =~ s/\r//g;
$pfilter =~ s/\r//g;
my @patterns = split(/\n/,$pfilter);
$self->{patternFilter} = \@patterns;
@ -166,7 +168,7 @@ sub start {
$val =~ s/\n//g; # Bugfix 757068
#Determine if pattern should not be rewritten
$rewritePattern = 0;
my $rewritePattern = 0;
foreach my $pattern (@{$self->{patternFilter}}) {
if($val =~ m/$pattern/i) {
$rewritePattern = 1;

4
lib/WebGUI/Asset/Wobject/ProjectManager.pm
View file

@ -1,6 +1,7 @@
package WebGUI::Asset::Wobject::ProjectManager;
$VERSION = "1.0.0";
use strict;
our $VERSION = "1.0.0";
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2007 Plain Black Corporation.
@ -12,7 +13,6 @@ $VERSION = "1.0.0";
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict;
use DateTime;
use Tie::IxHash;
use WebGUI::International;

4
lib/WebGUI/Asset/Wobject/TimeTracking.pm
View file

@ -1,6 +1,7 @@
package WebGUI::Asset::Wobject::TimeTracking;
$VERSION = "1.0.0";
use strict;
our $VERSION = "1.0.0";
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2007 Plain Black Corporation.
@ -12,7 +13,6 @@ $VERSION = "1.0.0";
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict;
use DateTime;
use Tie::IxHash;
use WebGUI::International;

14
lib/WebGUI/Commerce/Item.pm
View file

@ -1,5 +1,7 @@
package WebGUI::Commerce::Item;
use strict;
=head1 LEGAL
-------------------------------------------------------------------
@ -170,20 +172,16 @@ The type (namespace) of the item you want.
=cut
sub new {
my ($class, $session, $namespace, $load, $cmd, $plugin);
$class = shift;
$session = shift;
$id = shift;
$namespace = shift;
my ($class, $session, $id, $namespace) = @_;
$session->errorHandler->fatal('No namespace') unless ($namespace);
$session->errorHandler->fatal('No ID') unless ($id);
$cmd = "WebGUI::Commerce::Item::$namespace";
$load = "use $cmd";
my $cmd = "WebGUI::Commerce::Item::$namespace";
my $load = "use $cmd";
eval($load);
$session->errorHandler->warn("Item plugin failed to compile: $cmd.".$@) if($@);
$plugin = eval($cmd.'->new($session, "$id", "$namespace")');
my $plugin = eval($cmd.'->new($session, "$id", "$namespace")');
$session->errorHandler->warn("Couldn't instantiate Item plugin: $cmd.".$@) if($@);
return $plugin;
}

4
lib/WebGUI/Commerce/Shipping/ByPrice.pm
View file

@ -1,5 +1,7 @@
package WebGUI::Commerce::Shipping::ByPrice;
use strict;
=head1 LEGAL
-------------------------------------------------------------------
@ -24,8 +26,6 @@ Shipping plugin for determining shipping cost by a percentage of total price.
our @ISA = qw(WebGUI::Commerce::Shipping);
use strict;
#-------------------------------------------------------------------
=head2 calc ( $session )

4
lib/WebGUI/Commerce/Shipping/ByWeight.pm
View file

@ -1,5 +1,7 @@
package WebGUI::Commerce::Shipping::ByWeight;
use strict;
=head1 LEGAL
-------------------------------------------------------------------
@ -25,8 +27,6 @@ or products being purchased.
our @ISA = qw(WebGUI::Commerce::Shipping);
use strict;
#-------------------------------------------------------------------
=head2 calc ( $session )

4
lib/WebGUI/Commerce/Shipping/PerTransaction.pm
View file

@ -1,5 +1,7 @@
package WebGUI::Commerce::Shipping::PerTransaction;
use strict;
=head1 LEGAL
-------------------------------------------------------------------
@ -24,8 +26,6 @@ Shipping plugin for a fixed shipping costs per transaction.
our @ISA = qw(WebGUI::Commerce::Shipping);
use strict;
#-------------------------------------------------------------------
=head2 calc ( $self )