Permalink
Browse files

Separate lines for strict/warnings.

  • Loading branch information...
1 parent 4894b10 commit 0b790fe77d55da195b65a848a74436bbbdf60ea7 @shlomif committed Oct 30, 2011
@@ -1,8 +1,12 @@
# -*- coding: utf-8 -*-
# Copyright (C) 2011 Rocky Bernstein <rocky@cpan.org>
-use strict; use warnings;
+
package Devel::Trepan::Condition;
+
+use strict;
+use warnings;
use English qw( -no_match_vars );
+
use vars qw(@EXPORT @ISA);
@EXPORT = qw( is_valid_condition );
@ISA = qw(Exporter);
@@ -39,8 +39,13 @@ sub icon_char($)
}
package DB;
+
use vars qw($brkpt $package $lineno $max_bp $max_action);
-use strict; use warnings; no warnings 'redefine';
+
+use strict;
+use warnings;
+no warnings 'redefine';
+
use English qw( -no_match_vars );
BEGIN {
@@ -1,12 +1,15 @@
# -*- coding: utf-8 -*-
# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
# FIXME: Could combine manager code from breakpoints and display
-use strict; use warnings; no warnings 'redefine';
+
+use strict;
+use warnings;
+no warnings 'redefine';
+
use English qw( -no_match_vars );
use lib '../..';
use Class::Struct;
-use strict;
struct DBDisplay => {
number => '$', # breakpoint/action number
@@ -30,7 +30,8 @@ sub eval {
$OUTPUT_FIELD_SEPARATOR,
$INPUT_RECORD_SEPARATOR,
$OUTPUT_RECORD_SEPARATOR, $WARNING) = @saved;
- no strict; no warnings;
+ no strict;
+ no warnings;
eval "$user_context $eval_str; &DB::save\n"; # '\n' for nice recursive debug
_warnall($@) if $@;
}
@@ -39,11 +39,14 @@ use version; $VERSION = '0.1.0';
# A package to read and cache lines of a Perl program.
package DB::LineCache;
-use English qw( -no_match_vars );
-use strict; use warnings;
+
+use strict;
+use warnings;
no warnings 'once';
no warnings 'redefine';
+use English qw( -no_match_vars );
+
use Cwd 'abs_path';
use File::Basename;
use File::Spec;
@@ -562,12 +565,14 @@ sub update_cache($;$)
$lines_href->{plain} = $raw_lines;
if ($opts->{output} && defined($raw_lines)) {
# Some lines in $raw_lines may be undefined
- no strict; no warnings;
+ no strict;
+ no warnings;
local $WARNING=0;
my $highlight_lines = highlight_string(join('', @$raw_lines));
my @highlight_lines = split(/\n/, $highlight_lines);
$lines_href->{$opts->{output}} = \@highlight_lines;
- use strict; use warnings;
+ use strict;
+ use warnings;
}
my $entry = {
stat => $stat,
View
@@ -1,5 +1,10 @@
#!/usr/bin/env perl
-use strict; use warnings; no warnings 'redefine';
+
+use strict;
+use warnings;
+no warnings 'redefine';
+
+# TODO : What is the meaning of this use lib? Can it be removed?
use lib '../lib';
use vars qw($response);
View
@@ -1,5 +1,9 @@
#!/usr/bin/env perl
-use strict; use warnings;
+
+use strict;
+use warnings;
+
+# TODO : What is the meaning of this use lib? Can it be removed?
use lib '../lib';
use Test::More 'no_plan';
View
@@ -1,5 +1,10 @@
#!/usr/bin/env perl
-use strict; use warnings; no warnings 'redefine';
+
+use strict;
+use warnings;
+no warnings 'redefine';
+
+# TODO : I don't think this use lib is a good idea.
use lib '../lib';
use vars qw(@args);
View
@@ -1,6 +1,12 @@
#!/usr/bin/env perl
-use strict; use warnings; no warnings 'redefine';
+
+use strict;
+use warnings;
+no warnings 'redefine';
+
+# TODO : I don't think this use lib is a good idea.
use lib '../lib';
+
use vars qw($response);
use Test::More 'no_plan';

0 comments on commit 0b790fe

Please sign in to comment.