/usr/share/perl5/Net/Google/Code/Wiki/Comment.pm is in libnet-google-code-perl 0.19-2.
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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 | package Net::Google::Code::Wiki::Comment;
use Any::Moose;
use Params::Validate qw(:all);
with 'Net::Google::Code::Role::HTMLTree';
has 'content' => (
isa => 'Str',
is => 'rw',
);
has 'author' => (
isa => 'Str',
is => 'rw',
);
has 'date' => (
isa => 'Str',
is => 'rw',
);
sub parse {
my $self = shift;
my $element = shift;
my $need_update = not blessed $element;
$element = $self->html_tree( html => $element ) unless blessed $element;
my $author =
$element->look_down( class => 'author' )->find_by_tag_name('a')->as_text;
my $date = $element->look_down( class => 'date' )->attr('title');
my $content = $element->look_down( class => 'commentcontent' )->as_text;
$content =~ s/\s+$//; # remove trailing spaces
$self->author( $author ) if $author;
$self->date( $date ) if $date;
$self->content( $content ) if $content;
$element->delete if $need_update;
return 1;
}
no Any::Moose;
__PACKAGE__->meta->make_immutable;
1;
__END__
=head1 NAME
Net::Google::Code::Wiki::Comment - Google Code Wiki Comment
=head1 INTERFACE
=over 4
=item parse( HTML::Element or html segment string )
=back
=head1 AUTHOR
sunnavy C<< <sunnavy@bestpractical.com> >>
=head1 LICENCE AND COPYRIGHT
Copyright 2008-2010 Best Practical Solutions.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
|