view release on metacpan or  search on metacpan

lib/HTTP/MobileAttribute/Plugin/XHTMLCompliant.pm  view on Meta::CPAN

1;
__END__

=encoding UTF-8

=for stopwords XHTML

=head1 NAME

HTTP::MobileAttribute::Plugin::XHTMLCompliant - XHTML 対応しているの?

=head1 SYNOPSIS

    use HTTP::MobileAttribute plugins => [qw/XHTMLCompliant IS::ThirdForce/];

    HTTP::MobileAttribute->new($ua)->xhtml_compliant;

=head1 AUTHORS

Tokuhiro Matsuno

t/02_docomo.t  view on Meta::CPAN

    is $agent->xhtml_compliant, $data[8], "xhtml compliant $ua";
    if ($data[7]) {
        is $agent->$_(), $data[7]->{$_},"testing $_" for keys %{$data[7]};
    }
    is $agent->carrier, 'I' , "carrier is I";
    is $agent->carrier_longname, 'DoCoMo' ,  "carrier longname is DoCoMo";

}

{
    # SH905i is XHTML Compliant.
    local $ENV{HTTP_USER_AGENT} = 'DoCoMo/2.0 SH905i(c100;TB;W24H12)';
    my $agent = HTTP::MobileAttribute->new;
    is $agent->xhtml_compliant, 1;
}

while (<DATA>) {
    next if /^#/;
    chomp;
    local $ENV{HTTP_USER_AGENT} = $_;
    my $agent = HTTP::MobileAttribute->new;