/usr/share/perl5/Pod/Tree/StrStream.pm is in libpod-tree-perl 1.25-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | package Pod::Tree::StrStream;
use strict;
use warnings;
our $VERSION = '1.25';
sub new {
my ( $class, $ref ) = @_;
if ($ref) {
return bless $ref, $class;
}
else {
my $st = '';
return bless \$st, $class;
}
}
sub print {
my $st = shift;
$$st .= join( '', @_ );
}
sub get {
my $st = shift;
my $s = $$st;
$$st = '';
$s;
}
1;
|