diff options
author | Chad 'Exodist' Granum <exodist7@gmail.com> | 2011-12-20 15:43:57 -0800 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-01-04 15:18:54 -0600 |
commit | 1034da1ff657419f79977ab52bb2e9e0f7b3a413 (patch) | |
tree | 2681881422e9f8412995dd815acdee06d3a69dac /t | |
parent | 86d622ad73616e201ae69d0836b4db1cdd01130c (diff) | |
download | circular-require-1034da1ff657419f79977ab52bb2e9e0f7b3a413.tar.gz circular-require-1034da1ff657419f79977ab52bb2e9e0f7b3a413.zip |
Add feature to hide modules that may call require for you when desired.
Diffstat (limited to 't')
-rw-r--r-- | t/hide_middleman.t | 22 | ||||
-rw-r--r-- | t/hide_middleman/Bar.pm | 7 | ||||
-rw-r--r-- | t/hide_middleman/Foo.pm | 6 |
3 files changed, 35 insertions, 0 deletions
diff --git a/t/hide_middleman.t b/t/hide_middleman.t new file mode 100644 index 0000000..d0cf652 --- /dev/null +++ b/t/hide_middleman.t @@ -0,0 +1,22 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use lib 't/hide_middleman'; +use Test::More; +use Test::Exception; + +my @warnings; +$SIG{__WARN__} = sub { push @warnings => @_ }; + +# Test passes if you comment this out +no circular::require hide => 'base'; + +use_ok( 'Foo' ); + +is_deeply( + \@warnings, + ["Circular require detected: Foo.pm (from Bar)\n"], + "Show the module that used base, instead of 'base' when a cycle occurs from a use base." +); + +done_testing; diff --git a/t/hide_middleman/Bar.pm b/t/hide_middleman/Bar.pm new file mode 100644 index 0000000..486f8dd --- /dev/null +++ b/t/hide_middleman/Bar.pm @@ -0,0 +1,7 @@ +package Bar; +use strict; +use warnings; + +use base 'Foo'; + +1; diff --git a/t/hide_middleman/Foo.pm b/t/hide_middleman/Foo.pm new file mode 100644 index 0000000..463f6ec --- /dev/null +++ b/t/hide_middleman/Foo.pm @@ -0,0 +1,6 @@ +package Foo; +use strict; +use warnings; + +use Bar; +1; |