/usr/local/CPAN/Text-Xatena/Text/Xatena/Inline/Aggressive.pm

• package Text::Xatena::Inline::Aggressive
  • cache
  • ua
  • new
• __END__
• EOF

package Text::Xatena::Inline::Aggressive;

use strict;
use warnings;
use URI::Escape;
use LWP::Simple qw($ua);
use HTML::Entities;
use Text::Xatena::Inline -Base;

sub cache { $_[0]->{cache} }
sub ua    { $_[0]->{ua} || $ua }

sub new {
	my ($class, @args) = @_;
	my $self = $class->SUPER::new(@args);
	$self->{aggressive} = 1;
	$self;
}

1;
__END__