Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Separate lines for strict/warnings.

  • Loading branch information...
commit 0b790fe77d55da195b65a848a74436bbbdf60ea7 1 parent 4894b10
Shlomi Fish authored
6 lib/Devel/Trepan/Condition.pm
... ... @@ -1,8 +1,12 @@
1 1 # -*- coding: utf-8 -*-
2 2 # Copyright (C) 2011 Rocky Bernstein <rocky@cpan.org>
3   -use strict; use warnings;
  3 +
4 4 package Devel::Trepan::Condition;
  5 +
  6 +use strict;
  7 +use warnings;
5 8 use English qw( -no_match_vars );
  9 +
6 10 use vars qw(@EXPORT @ISA);
7 11 @EXPORT = qw( is_valid_condition );
8 12 @ISA = qw(Exporter);
7 lib/Devel/Trepan/DB/Breakpoint.pm
@@ -39,8 +39,13 @@ sub icon_char($)
39 39 }
40 40
41 41 package DB;
  42 +
42 43 use vars qw($brkpt $package $lineno $max_bp $max_action);
43   -use strict; use warnings; no warnings 'redefine';
  44 +
  45 +use strict;
  46 +use warnings;
  47 +no warnings 'redefine';
  48 +
44 49 use English qw( -no_match_vars );
45 50
46 51 BEGIN {
7 lib/Devel/Trepan/DB/Display.pm
... ... @@ -1,12 +1,15 @@
1 1 # -*- coding: utf-8 -*-
2 2 # Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
3 3 # FIXME: Could combine manager code from breakpoints and display
4   -use strict; use warnings; no warnings 'redefine';
  4 +
  5 +use strict;
  6 +use warnings;
  7 +no warnings 'redefine';
  8 +
5 9 use English qw( -no_match_vars );
6 10 use lib '../..';
7 11
8 12 use Class::Struct;
9   -use strict;
10 13
11 14 struct DBDisplay => {
12 15 number => '$', # breakpoint/action number
3  lib/Devel/Trepan/DB/Eval.pm
@@ -30,7 +30,8 @@ sub eval {
30 30 $OUTPUT_FIELD_SEPARATOR,
31 31 $INPUT_RECORD_SEPARATOR,
32 32 $OUTPUT_RECORD_SEPARATOR, $WARNING) = @saved;
33   - no strict; no warnings;
  33 + no strict;
  34 + no warnings;
34 35 eval "$user_context $eval_str; &DB::save\n"; # '\n' for nice recursive debug
35 36 _warnall($@) if $@;
36 37 }
13 lib/Devel/Trepan/DB/LineCache.pm
@@ -39,11 +39,14 @@ use version; $VERSION = '0.1.0';
39 39
40 40 # A package to read and cache lines of a Perl program.
41 41 package DB::LineCache;
42   -use English qw( -no_match_vars );
43   -use strict; use warnings;
  42 +
  43 +use strict;
  44 +use warnings;
44 45 no warnings 'once';
45 46 no warnings 'redefine';
46 47
  48 +use English qw( -no_match_vars );
  49 +
47 50 use Cwd 'abs_path';
48 51 use File::Basename;
49 52 use File::Spec;
@@ -562,12 +565,14 @@ sub update_cache($;$)
562 565 $lines_href->{plain} = $raw_lines;
563 566 if ($opts->{output} && defined($raw_lines)) {
564 567 # Some lines in $raw_lines may be undefined
565   - no strict; no warnings;
  568 + no strict;
  569 + no warnings;
566 570 local $WARNING=0;
567 571 my $highlight_lines = highlight_string(join('', @$raw_lines));
568 572 my @highlight_lines = split(/\n/, $highlight_lines);
569 573 $lines_href->{$opts->{output}} = \@highlight_lines;
570   - use strict; use warnings;
  574 + use strict;
  575 + use warnings;
571 576 }
572 577 my $entry = {
573 578 stat => $stat,
7 t/10test-intf-user.t
... ... @@ -1,5 +1,10 @@
1 1 #!/usr/bin/env perl
2   -use strict; use warnings; no warnings 'redefine';
  2 +
  3 +use strict;
  4 +use warnings;
  5 +no warnings 'redefine';
  6 +
  7 +# TODO : What is the meaning of this use lib? Can it be removed?
3 8 use lib '../lib';
4 9 use vars qw($response);
5 10
6 t/10test-linecache.t
... ... @@ -1,5 +1,9 @@
1 1 #!/usr/bin/env perl
2   -use strict; use warnings;
  2 +
  3 +use strict;
  4 +use warnings;
  5 +
  6 +# TODO : What is the meaning of this use lib? Can it be removed?
3 7 use lib '../lib';
4 8
5 9 use Test::More 'no_plan';
7 t/10test-proc-hook.t
... ... @@ -1,5 +1,10 @@
1 1 #!/usr/bin/env perl
2   -use strict; use warnings; no warnings 'redefine';
  2 +
  3 +use strict;
  4 +use warnings;
  5 +no warnings 'redefine';
  6 +
  7 +# TODO : I don't think this use lib is a good idea.
3 8 use lib '../lib';
4 9 use vars qw(@args);
5 10
8 t/10test-proc-load.t
... ... @@ -1,6 +1,12 @@
1 1 #!/usr/bin/env perl
2   -use strict; use warnings; no warnings 'redefine';
  2 +
  3 +use strict;
  4 +use warnings;
  5 +no warnings 'redefine';
  6 +
  7 +# TODO : I don't think this use lib is a good idea.
3 8 use lib '../lib';
  9 +
4 10 use vars qw($response);
5 11
6 12 use Test::More 'no_plan';

0 comments on commit 0b790fe

Please sign in to comment.
Something went wrong with that request. Please try again.