WWW::2ch::Res - remark of BBS is treated.

WWW-2ch documentation Contained in the WWW-2ch distribution.

Index

Code Index:

NAME

Top

WWW::2ch::Res - remark of BBS is treated.

Method

Top

key
resid
num
name
mail
date
time
body
body_text
id
be

SEE ALSO

Top

WWW::2ch::Dat

AUTHOR

Top

Kazuhiro Osawa

COPYRIGHT AND LICENSE

Top

Copyright (C) 2006 by Kazuhiro Osawa

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available.

WWW-2ch documentation Contained in the WWW-2ch distribution. 
package WWW::2ch::Res;
use strict;

use base qw( Class::Accessor::Fast );
__PACKAGE__->mk_accessors( qw( c key resid num name mail date time id be body ) );

sub new {
    my $class = shift;
    my $c = shift;
    my $opt = shift;
    my $self = bless $opt, $class;
    $self->c($c);
    $self;
}

sub body_text {
    my $self = shift;
    my $body = $self->body;
    $body =~ s/<br>/\n/ig;
    $body =~ s/<[^>]*>//g;
    $body =~ s/&lt;/</g;
    $body =~ s/&gt;/>/g;
    $body;
}

sub permalink {
    my ($self) = @_;
    $self->c->worker->permalink($self->key, $self->resid);
}

1;

__END__