Lines Matching full:main

27         main::HBase;
30     main::is(FOO, 'foo', "FOO CONSTANT");
31     main::is(BAR, 'bar', "BAR CONSTANT");
32     main::is(BAZ, 'baz', "BAZ CONSTANT");
37         main::HBaseSub;
38     use base 'main::HBase';
41     main::is(FOO,   'foo',   "FOO CONSTANT");
42     main::is(BAR,   'bar',   "BAR CONSTANT");
43     main::is(BAZ,   'baz',   "BAZ CONSTANT");
44     main::is(APPLE, 'apple', "APPLE CONSTANT");
45     main::is(PEAR,  'pear',  "PEAR CONSTANT");
48 my $one = main::HBase->new(foo => 'a', bar => 'b', baz => 'c');
68         main::Const::Test;
79 my $pkg = 'main::Const::Test';
83     *main::Const::Test::FOO = sub { 0 };
95         main::HBase::Wrapped;
111         main::HBase::Wrapped::Inherit;
112     use base 'main::HBase::Wrapped';
116 my $o = main::HBase::Wrapped::Inherit->new(foo => 1);
137         main::HBase2;
140     main::is(FOO, 'foo', "FOO CONSTANT");
141     main::is(BAR, 'bar', "BAR CONSTANT");
142     main::is(BAZ, 'baz', "BAZ CONSTANT");
143     main::is(BAT, 'bat', "BAT CONSTANT");
144     main::is(BAN, 'ban', "BAN CONSTANT");
145     main::is(BOO, 'boo', "BOO CONSTANT");
148 my $ro = main::HBase2->new(foo => 'foo', bar => 'bar', baz => 'baz', bat => 'bat', ban => 'ban');
172     [Test2::Util::HashBase::attr_list('main::HBase::Wrapped::Inherit')],
177 my $x = main::HBase::Wrapped::Inherit->new(foo => 1, baz => 2);
182 my $y = main::HBase::Wrapped::Inherit->new({foo => 1, baz => 2});
187 my $z = main::HBase::Wrapped::Inherit->new([
197     exception { main::HBase::Wrapped::Inherit->new([1 .. 10]) },
198     qr/Too many arguments for main::HBase::Wrapped::Inherit constructor/,
209         main::HBase3;
220         main::HBase4;
233 my $it = main::HBase3->new;
235 $it = main::HBase3->new;
240 $it = main::HBase4->new;
243 $it = main::HBase4->new;