added 'use warnings;' to every .pm and .pl file where it's missing

ntyni · Feb 25, 2015 · 36cc03c · 36cc03c
1 parent 1856cb2
commit 36cc03c
Show file tree

Hide file tree

Showing 23 changed files with 23 additions and 0 deletions.
diff --git a/dist-maint/update-version.pl b/dist-maint/update-version.pl
@@ -1,5 +1,6 @@
 #!/usr/bin/env perl
 use strict;
+use warnings;
 my $new = shift;
 die "please supply the new version number N.NN\n" unless $new;
 my $old = shift;

diff --git a/t/CdExample.pm b/t/CdExample.pm
@@ -1,5 +1,6 @@
 package CdExample;
 use strict;
+use warnings;
 use UR;
 
 class CdExample {

diff --git a/t/CdExample/Artist.pm b/t/CdExample/Artist.pm
@@ -1,6 +1,7 @@
 
 package CdExample::Artist;
 use strict;
+use warnings;
 use CdExample;
 
 class CdExample::Artist {

diff --git a/t/CdExample/Cd.pm b/t/CdExample/Cd.pm
@@ -1,5 +1,6 @@
 package CdExample::Cd;
 use strict;
+use warnings;
 use CdExample;
 
 class CdExample::Cd {

diff --git a/t/CmdTest.pm b/t/CmdTest.pm
@@ -2,6 +2,7 @@
 
 package CmdTest;
 use strict;
+use warnings;
 use Command::Tree;
 
 class CmdTest { is => 'Command::Tree', doc => 'test suite test command tree' };

diff --git a/t/CmdTest/Stuff.pm b/t/CmdTest/Stuff.pm
@@ -1,5 +1,6 @@
 package CmdTest::Stuff;
 use strict;
+use warnings;
 
 class CmdTest::Stuff {
     has => [

diff --git a/t/Vending/Command/CoinReturn.pm b/t/Vending/Command/CoinReturn.pm
@@ -1,5 +1,6 @@
 package Vending::Command::CoinReturn;
 use strict;
+use warnings;
 
 class Vending::Command::CoinReturn {
     is => 'Vending::Command::Outputter',

diff --git a/t/Vending/Command/Dime.pm b/t/Vending/Command/Dime.pm
@@ -1,5 +1,6 @@
 package Vending::Command::Dime;
 use strict;
+use warnings;
 
 class Vending::Command::Dime {
     is => 'Vending::Command::InsertMoney',

diff --git a/t/Vending/Command/Dollar.pm b/t/Vending/Command/Dollar.pm
@@ -1,5 +1,6 @@
 package Vending::Command::Dollar;
 use strict;
+use warnings;
 
 class Vending::Command::Dollar {
     is => 'Vending::Command::InsertMoney',

diff --git a/t/Vending/Command/InsertMoney.pm b/t/Vending/Command/InsertMoney.pm
@@ -1,5 +1,6 @@
 package Vending::Command::InsertMoney;
 use strict;
+use warnings;
 
 class Vending::Command::InsertMoney {
     is => 'Vending::Command',

diff --git a/t/Vending/Command/Menu.pm b/t/Vending/Command/Menu.pm
@@ -1,5 +1,6 @@
 package Vending::Command::Menu;
 use strict;
+use warnings;
 
 class Vending::Command::Menu {
     is => ['UR::Object::Command::List', 'Vending::Command' ],

diff --git a/t/Vending/Command/Nickel.pm b/t/Vending/Command/Nickel.pm
@@ -1,5 +1,6 @@
 package Vending::Command::Nickel;
 use strict;
+use warnings;
 
 class Vending::Command::Nickel {
     is => 'Vending::Command::InsertMoney',

diff --git a/t/Vending/Command/Quarter.pm b/t/Vending/Command/Quarter.pm
@@ -1,5 +1,6 @@
 package Vending::Command::Quarter;
 use strict;
+use warnings;
 
 class Vending::Command::Quarter {
     is => 'Vending::Command::InsertMoney',

diff --git a/t/Vending/Command/Service/Show/Money.pm b/t/Vending/Command/Service/Show/Money.pm
@@ -1,5 +1,6 @@
 package Vending::Command::Service::Show::Money;
 use strict;
+use warnings;
 
 class Vending::Command::Service::Show::Money {
     is_abstract => 1,

diff --git a/t/Vending/get_coin_by_value.pl b/t/Vending/get_coin_by_value.pl
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use above 'Vending';
 
 # Requires a 3-table database join (COIN, CONTENT and CONTENT_TYPE), plus a

diff --git a/t/Vending/vend_interactive.pl b/t/Vending/vend_interactive.pl
@@ -1,6 +1,7 @@
 #!/gsc/bin/perl
 
 use strict;
+use warnings;
 use above 'Vending';
 
 my $machine = Vending::Machine->get();

diff --git a/t/class_browser/test_namespace/Testing.pm b/t/class_browser/test_namespace/Testing.pm
@@ -1,6 +1,7 @@
 package Testing;
 
 use strict;
+use warnings;
 use UR;
 
 class Testing {

diff --git a/t/class_browser/test_namespace/Testing/Color.pm b/t/class_browser/test_namespace/Testing/Color.pm
@@ -1,6 +1,7 @@
 package Testing::Color;
 
 use strict;
+use warnings;
 use Testing;
 
 class Testing::Color {

diff --git a/t/class_browser/test_namespace/Testing/Something.pm b/t/class_browser/test_namespace/Testing/Something.pm
@@ -1,5 +1,6 @@
 package Testing::Something;
 use strict;
+use warnings;
 
 class Testing::Something {
     id_by => [

diff --git a/t/class_browser/test_namespace/Testing/Something/SubClass1.pm b/t/class_browser/test_namespace/Testing/Something/SubClass1.pm
@@ -1,5 +1,6 @@
 package Testing::Something::SubClass1;
 use strict;
+use warnings;
 
 class Testing::Something::SubClass1 {
     is => 'Testing::Something',

diff --git a/t/class_browser/test_namespace/Testing/Something/SubClass2.pm b/t/class_browser/test_namespace/Testing/Something/SubClass2.pm
@@ -1,5 +1,6 @@
 package Testing::Something::SubClass2;
 use strict;
+use warnings;
 
 class Testing::Something::SubClass2 {
     is => 'Testing::Something',

diff --git a/t/ur-cachetest.pl b/t/ur-cachetest.pl
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use Time::HiRes; 
 
 my $n_props = shift(@ARGV) || 5;

diff --git a/t/urbenchmark.pl b/t/urbenchmark.pl
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use Time::HiRes; 
 
 my $n_props = shift(@ARGV) || 5;