Blame t/data/list

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';