|
Packit |
745a47 |
use base 'Alpha';
|
|
Packit |
745a47 |
use base qw(Beta Gamma);
|
|
Packit |
745a47 |
use base qw<Delta>;
|
|
Packit |
745a47 |
use parent 'Epsilon';
|
|
Packit |
745a47 |
use parent qw{Theta};
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
# 'Zeta', 'Iota' should not be found
|
|
Packit |
745a47 |
use parent -norequire, qw(Zeta Iota);
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
use aliased "Some::Crazy::Module";
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
# 'ShorterName' should not be found
|
|
Packit |
745a47 |
use aliased "Another::Crazy::Module" => "ShorterName";
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
use base Kappa::Lambda;
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
use base Mu::Nu::;
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
use base qw/
|
|
Packit |
745a47 |
Try
|
|
Packit |
745a47 |
/;
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
use base qw (
|
|
Packit |
745a47 |
This
|
|
Packit |
745a47 |
One );
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
use parent qw[Class::Accessor::Fast];
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
# Two examples from perl-Sys-Info-Base
|
|
Packit |
745a47 |
# "__PACKAGE__" should not be found
|
|
Packit |
745a47 |
use base __PACKAGE__->load_subclass('Sys::Info::Driver::%s::Device::CPU');
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
# It is not possible to filter constant which is used as a module
|
|
Packit |
745a47 |
use constant TARGET_CLASS => __PACKAGE__->load_subclass('Sys::Info::Driver::%s::OS');
|
|
Packit |
745a47 |
use base TARGET_CLASS;
|
|
Packit |
745a47 |
|
|
Packit |
745a47 |
# Do not ignore line which contains '->' in a coment
|
|
Packit |
745a47 |
use base 'XML::XQL::Element'; # L -> L
|
|
Packit Service |
74cec8 |
|
|
Packit Service |
74cec8 |
use NoCleanA;
|
|
Packit Service |
74cec8 |
package NoCleanA;
|
|
Packit Service |
74cec8 |
|
|
Packit Service |
74cec8 |
package NoCleanB;
|
|
Packit Service |
74cec8 |
require NoCleanB;
|
|
Packit Service |
74cec8 |
|
|
Packit Service |
74cec8 |
package ToRemove;
|
|
Packit Service |
74cec8 |
sub foo{}
|
|
Packit Service |
74cec8 |
package Foo;
|
|
Packit Service |
74cec8 |
use base 'ToRemove';
|