From 36cc03c566e165a402587a9a721d93220b573d75 Mon Sep 17 00:00:00 2001 From: Sebastian Heil <(none)> Date: Thu, 5 Feb 2015 00:13:35 +0100 Subject: [PATCH] added 'use warnings;' to every .pm and .pl file where it's missing --- dist-maint/update-version.pl | 1 + t/CdExample.pm | 1 + t/CdExample/Artist.pm | 1 + t/CdExample/Cd.pm | 1 + t/CmdTest.pm | 1 + t/CmdTest/Stuff.pm | 1 + t/Vending/Command/CoinReturn.pm | 1 + t/Vending/Command/Dime.pm | 1 + t/Vending/Command/Dollar.pm | 1 + t/Vending/Command/InsertMoney.pm | 1 + t/Vending/Command/Menu.pm | 1 + t/Vending/Command/Nickel.pm | 1 + t/Vending/Command/Quarter.pm | 1 + t/Vending/Command/Service/Show/Money.pm | 1 + t/Vending/get_coin_by_value.pl | 1 + t/Vending/vend_interactive.pl | 1 + t/class_browser/test_namespace/Testing.pm | 1 + t/class_browser/test_namespace/Testing/Color.pm | 1 + t/class_browser/test_namespace/Testing/Something.pm | 1 + t/class_browser/test_namespace/Testing/Something/SubClass1.pm | 1 + t/class_browser/test_namespace/Testing/Something/SubClass2.pm | 1 + t/ur-cachetest.pl | 1 + t/urbenchmark.pl | 1 + 23 files changed, 23 insertions(+) diff --git a/dist-maint/update-version.pl b/dist-maint/update-version.pl index db0a67c7..28df3148 100755 --- 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 index f47580e0..1dd57854 100644 --- 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 index e17cd479..93d14df7 100644 --- 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 index 45561f56..b93b9b72 100644 --- 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 index 2f6f8286..284ba623 100755 --- 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 index 85adc72d..900e4753 100644 --- 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 index 324b89bb..b4c9bd7c 100644 --- 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 index 358438da..8550dc2b 100644 --- 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 index 79e7f8e4..5854a7f5 100644 --- 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 index fcf05d6a..fd4d2580 100644 --- 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 index 77a91d62..65c29709 100644 --- 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 index 22b4d59b..ed5884df 100644 --- 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 index 9c1bcea2..8b5101ee 100644 --- 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 index bbdc3ee6..f1fa6e35 100644 --- 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 index 9f8491c3..9bfc3fb5 100644 --- 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 index 31f04280..208c13bd 100755 --- 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 index 0cc3682e..8f8765ee 100644 --- 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 index 751c836b..4d844358 100644 --- 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 index 6b11b4e7..8fe57809 100644 --- 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 index 27a19373..53271f26 100644 --- 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 index 437bf26d..cec1913e 100644 --- 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 index eeca40c4..f8fca7d1 100644 --- 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 index 29383c71..d8bae891 100644 --- 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;