Lines Matching refs:class

18             my $class = "Bench::Par::Sub_${c}";
20             @{ "$class\::ISA"} = (@{ "$class\::ISA"},'Bench::Base');
21             die unless $class->foo;
27             my $class = "Bench::Par::Sub_${c}::SubSub${_}";
29             @{ "$class\::ISA"} = (@{ "$class\::ISA"},'Bench::Base');
30             die unless $class->foo;
36             my $class = "Bench::Par::Sub_${c}";
38             push @{ "$class\::ISA"}, 'Bench::Base';
39             die unless $class->foo;
45             my $class = "Bench::Par::Sub_${c}::SubSub${_}";
47             push @{ "$class\::ISA"}, 'Bench::Base';
48             die unless $class->foo;
54             my $class = "Bench::Par::Sub_${c}::SubSub${_}";
56             push @{ "$class\::FOO"}, 'Bench::Base';
63             my $class = "Bench::Par::Sub_${c}";
65             push @{ "$class\::FOO"}, 'Bench::Base';
72             my $class = "Bench::Par::Sub_${c}";
74             @{ "$class\::FOO"} = (@{ "$class\::FOO"}, 'Bench::Base');
83             my $class = "Bench::Par::Sub_${c}";
85             my $aref = \@{ "$class\::FOO"};
93             my $class = "Bench::Par::Sub_${c}::SubSub${_}";
95             @{ "$class\::FOO"} = (@{ "$class\::FOO"}, 'Bench::Base');