Context Navigation

r18802	r36298
4	4	all_from 'lib/HTML/MobileJp/Filter.pm';
5	5
6		requires 'Moose' => 0.55;
7		requires 'Moose::Role';
	6	requires_any_moose;
8	7	requires 'Class::Trigger';
9		~~requires 'Class::MOP';~~
10	8	requires 'XML::LibXML';
11	9
…	…
16	14	requires 'HTML::StickyQuery::DoCoMoGUID';
17	15	requires 'HTML::Entities::ConvertPictogramMobileJp';
	16	requires 'HTTP::Headers';
18	17	requires 'YAML';
	18	requires 'HTTP::MobileAgent';
	19
	20	tests 't/*.t';
	21	author_tests 'xt';
19	22
20	23	test_requires 'Test::More';
21	24	test_requires 'Test::Base';
22		~~test_requires 'HTTP::MobileAgent';~~
23	25
24	26	use_test_base;

lang/perl/HTML-MobileJp-Filter/branches/Any-Moose/lib/HTML/MobileJp/Filter.pm

r18802	r36298
1	1	package HTML::MobileJp::Filter;
2		use Moose;
	2	use Any::Moose;
3	3	our $VERSION = '0.01_03';
4	4
…	…
6	6	is => 'rw',
7	7	isa => 'ArrayRef',
	8	required => 1,
	9	auto_deref => 1,
8	10	default => sub { [] },
9	11	);
…	…
15	17	);
16	18
17		no Moose;
18		__PACKAGE__->meta->make_immutable;
	19	no Any::Moose;
19	20
20	21	use Class::Trigger;
21		~~use Class::MOP;~~
22	22	use HTML::MobileJp::Filter::Content;
23	23
24		sub new {
25		my $self = shift->SUPER::new(@_);
26
	24	sub BUILD {
	25	my ($self) = @_;
27	26	for my $config (@{ $self->filters }) {
28	27	my $filter = do {
29	28	my $module = $config->{module} =~ m{^\+(.*)$} ? $1 : __PACKAGE__ ."::$config->{module}";
30		~~Class::MOP~~::load_class($module);
	29	Any::Moose::load_class($module);
31	30	$module->new($config);
32	31	};
…	…
42	41	});
43	42	}
44
45		~~$self;~~
46	43	}
47	44
…	…
58	55	$self->stash->{content}->as_html;
59	56	}
	57
	58	__PACKAGE__->meta->make_immutable;
60	59
61	60	1;

r18799	r36298
1	1	package HTML::MobileJp::Filter::Content;
2		use Moose;
	2	use Any::Moose;
3	3
4	4	has _current => (
…	…
56	56	}
57	57
	58	__PACKAGE__->meta->make_immutable;
58	59	1;

r18800	r36298
1	1	package HTML::MobileJp::Filter::DoCoMoCSS;
2		use Moose;
	2	use Any::Moose;
3	3
4	4	with 'HTML::MobileJp::Filter::Role';

r18800	r36298
1	1	package HTML::MobileJp::Filter::DoCoMoGUID;
2		use Moose;
	2	use Any::Moose;
3	3
4	4	with 'HTML::MobileJp::Filter::Role';

r18800	r36298
1	1	package HTML::MobileJp::Filter::Dummy;
2		use Moose;
	2	use Any::Moose;
3	3
4	4	with 'HTML::MobileJp::Filter::Role';

r18800	r36298
1	1	package HTML::MobileJp::Filter::EntityReference;
2		use Moose;
	2	use Any::Moose;
3	3
4	4	with 'HTML::MobileJp::Filter::Role';
…	…
34	34	}
35	35
	36	__PACKAGE__->meta->make_immutable;
	37
36	38	1;
37	39	__END__

r18800	r36298
1	1	package HTML::MobileJp::Filter::PictogramFallback;
2		use Moose;
	2	use Any::Moose;
3	3
4	4	with 'HTML::MobileJp::Filter::Role';
…	…
53	53	$fallback;
54	54	}
	55
	56	__PACKAGE__->meta->make_immutable;
55	57
56	58	1;

r18789	r36298
1	1	package HTML::MobileJp::Filter::PictogramFallback::TypeCast;
2		use Moose;
	2	use Any::Moose;
3	3
4	4	with 'HTML::MobileJp::Filter::Role';
…	…
54	54	}
55	55
	56	__PACKAGE__->meta->make_immutable;
	57
56	58	1;
57	59	__END__

r18104	r36298
1	1	package HTML::MobileJp::Filter::Role;
2		use strict;
3		use Moose::Role;
	2	use Any::Moose '::Role';
4	3
5	4	has config => (

r15481	r36298
4	4	use HTML::MobileJp::Filter;
5	5	use HTTP::MobileAgent;
	6	use HTTP::Headers;
6	7
7	8	my $filter = HTML::MobileJp::Filter->new( filters => [{ module => 'Dummy' }] );
8	9	my $html = $filter->filter(
9		mobile_agent => HTTP::MobileAgent->new,
	10	mobile_agent => HTTP::MobileAgent->new(
	11	HTTP::Headers->new(
	12	'User-Agent' => 'DoCoMo/2.0 P906i(c100;TB;W24H15)',
	13	)
	14	),
10	15	html => "test",
11	16	);

r17838	r36298
15	15	use HTML::MobileJp::Filter;
16	16	use HTTP::MobileAgent;
	17	use HTTP::Headers;
17	18
18	19	my $filters = [
…	…
23	24	my $filter = HTML::MobileJp::Filter->new( filters => $filters );
24	25	my $html = $filter->filter(
25		mobile_agent => HTTP::MobileAgent->new,
	26	mobile_agent => HTTP::MobileAgent->new(
	27	HTTP::Headers->new(
	28	'User-Agent' => 'DoCoMo/2.0 P906i(c100;TB;W24H15)',
	29	)
	30	),
26	31	html => "test",
27	32	);