1Object::HashBase::InlinUes(e3r)Contributed Perl DocumentOabtjieocnt::HashBase::Inline(3)
2
3
4

THIS IS A BUNDLED COPY OF HASHBASE

6       This is a bundled copy of Object::HashBase. This file was generated
7       using the $0 script.
8
9                   EOT
10                   next;
11               }
12               if ($line =~ m/^=head1 /) {
13                   $writing = 1;
14               }
15
16               next unless $writing;
17
18               $line =~ s/\QObject::\E/$prefix\::/g;
19
20               print $hbf $line;
21           }
22
23           $writing = 0;
24           while (my $line = <$tin>) {
25               if ($line =~ m/<-- START -->/) {
26                   $writing = 1;
27                   next;
28               }
29
30               next unless $writing;
31
32               $line =~ s/\QObject::HashBase::Test::\E/main\::/g;
33               $line =~ s/\QObject::\E/$prefix\::/g;
34               print $tf $line;
35           }
36
37           close($hbf);
38           close($tf);
39       }
40
41       1;
42
43
44
45perl v5.34.0                      2022-01-21       Object::HashBase::Inline(3)