root/lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute.pm @ 4006

Revision 4006, 0.9 kB (checked in by tokuhirom, 6 years ago)

HTTP-MobileAttribute?: added CarrierDetect?.

Line 
1package HTTP::MobileAttribute;
2
3use strict;
4use warnings;
5our $VERSION = '0.01';
6
7use Class::Component;
8use HTTP::MobileAttribute::Agent::NonMobile;
9
10sub get_agent {
11    my ($self, $stuff) = @_;
12
13    my $agent = $self->NEXT('get_agent' => $stuff);
14
15    if (ref($agent) =~ /^HTTP::MobileAttribute::Agent/) {
16        return $agent;
17    } else {
18        return HTTP::MobileAttribute::Agent::NonMobile->new;
19    }
20}
21
221;
23__END__
24
25=for stopwords aaaatttt gmail dotottto commmmm Kazuhiro Osawa Plaggable
26
27=head1 NAME
28
29HTTP::MobileAttribute - Yet Another HTTP::MobileAgent
30
31=head1 SYNOPSIS
32
33  use HTTP::MobileAttribute;
34
35=head1 DESCRIPTION
36
37HTTP::MobileAttribute is Plaggable version of HTTP::MobileAgent.
38
39=head1 AUTHOR
40
41Tokuhiro Matsuno E<lt>tokuhirom aaaatttt gmail dotottto commmmmE<gt>
42
43Kazuhiro Osawa
44
45=head1 SEE ALSO
46
47L<HTTP::MobileAgent>
48
49=head1 LICENSE
50
51This library is free software; you can redistribute it and/or modify
52it under the same terms as Perl itself.
53
54=cut
Note: See TracBrowser for help on using the browser.