THIS IS A BUNDLED COPY OF HASHBASE

This is a bundled copy of Object::HashBase. This file was generated using the $0 script.

        EOT
        next;
    }
    if ($line =~ m/^=head1 /) {
        $writing = 1;
    }

    next unless $writing;

    $line =~ s/\QObject::\E/$prefix\::/g;

    print $hbf $line;
}

$writing = 0;
while (my $line = <$tin>) {
    if ($line =~ m/<-- START -->/) {
        $writing = 1;
        next;
    }

    next unless $writing;

    $line =~ s/\QObject::HashBase::Test::\E/main\::/g;
    $line =~ s/\QObject::\E/$prefix\::/g;
    print $tf $line;
}

close($hbf);
close($tf);
}

1;