Permalink
Browse files

Reorganized the strict and warnings.

  • Loading branch information...
shlomif committed Oct 30, 2011
1 parent 9abc556 commit 0e0c7bbf3fa2fc7982771d15f63406aacf05441b
@@ -1,10 +1,18 @@
# -*- coding: utf-8 -*-
# Copyright (C) 2011 Rocky Bernstein <rockyb@rubyforge.net>
-use strict; use warnings; no warnings 'redefine';
+
+package Devel::Trepan::BrkptMgr;
+
+use strict;
+use warnings;
+no warnings 'redefine';
+
use English qw( -no_match_vars );
+
+# TODO : What is the meaning of this use lib? Can it be removed?
use lib '../..';
+
use Devel::Trepan::DB::Breakpoint;
-package Devel::Trepan::BrkptMgr;
sub new($$)
{
@@ -1,6 +1,11 @@
# -*- coding: utf-8 -*-
# Copyright (C) 2011 Rocky Bernstein <rocky@cpan.org>
-use strict; use warnings;
+package Devel::Trepan::CmdProcessor::Hook;
+
+use strict;
+use warnings;
+
+# TODO : I don't think this lib is a good idea.
use lib '../../..';
use Class::Struct;
@@ -13,7 +18,6 @@ struct CmdProcessorHook => {
};
-package Devel::Trepan::CmdProcessor::Hook;
# attr_accessor :list
sub new($;$)
@@ -3,13 +3,16 @@
# Trepan command input validation routines. A String type is
# usually passed in as the argument to validation routines.
-use strict; use warnings;
-use Exporter;
+package Devel::Trepan::CmdProcessor;
+use strict;
+use warnings;
use feature 'switch';
-use lib '../../..';
-package Devel::Trepan::CmdProcessor;
+use Exporter;
+
+# TODO : I don't think this use lib is a good idea.
+use lib '../../..';
use Cwd 'abs_path';
use Devel::Trepan::DB::Breakpoint;
View
@@ -87,11 +87,11 @@ BEGIN {
require threads;
require threads::shared;
import threads::shared qw(share);
- no strict; no warnings;
+ no strict;
+ no warnings;
$DBGR;
share(\$DBGR);
lock($DBGR);
- use strict; use warnings;
print "Thread support enabled\n";
} else {
*lock = sub(*) {};
View
@@ -10,12 +10,14 @@
# Some ideas originiated as part of Matt Fleming's 2006 Google Summer of
# Code project.
-use strict; use warnings;
+package Devel::Trepan::IO::InputBase;
+
+use strict;
+use warnings;
+
use Exporter;
use lib '../..';
-package Devel::Trepan::IO::InputBase;
-
use Devel::Trepan::Util qw(hash_merge);
use vars qw(@EXPORT);
View
@@ -1,8 +1,11 @@
# -*- coding: utf-8 -*-
# Copyright (C) 2011 Rocky Bernstein <rocky@cpan.org>
-use strict; use warnings;
-use feature 'switch';
package Devel::Trepan::Util;
+
+use strict;
+use warnings;
+use feature 'switch';
+
use vars qw(@EXPORT @ISA);
@EXPORT = qw( hash_merge safe_repr uniq_abbrev extract_expression
parse_eval_suffix);

0 comments on commit 0e0c7bb

Please sign in to comment.