File Coverage

blib/lib/CGI/BrowserDetect.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	14	14	100.0
condition	4	6	66.6
subroutine	11	11	100.0
pod	7	7	100.0
total	69	71	97.1

package CGI::BrowserDetect;
use 5.006; use strict; use warnings; our $VERSION = '1.00';
use base qw/HTTP::BrowserDetect/;

sub new {
	my $pkg = shift;
	my $count = scalar @_;

	my %args = $count == 2
			? (HTTP_USER_AGENT => shift, HTTP_ACCEPT_LANGUAGE => shift)
			: $count == 1
				? (HTTP_USER_AGENT => shift)
					: @_;

	my $self = $pkg->SUPER::new($args{HTTP_USER_AGENT});

	if ($args{HTTP_ACCEPT_LANGUAGE}) {
		$self->{accept_language} = $args{HTTP_ACCEPT_LANGUAGE};
		($self->{_lang}, $self->{_cnty}) = $self->{accept_language} =~ /([a-z]{2})\-([A-Z]{2})/;
	}

	return $self;
}

sub detect {
	my ($self, @want) = @_;
	my %provide = map {
		$self->$_ ? ( $_ => $self->$_ ) : ()
	} @want;
	return wantarray ? %provide : \%provide;
}

sub device_type {
	my ($self) = @_;

	return $self->mobile
		? 'mobile'
		: $self->tablet
			? 'tablet'
			: 'computer';
}

sub lang { language(@_); } # backward comp

sub language {
	my ($self) = @_;
	my $language = $self->SUPER::language();
	return $language || $self->{_lang};
}

sub cnty { country(@_); } # backwards

sub country {
	my ($self) = @_;
	my $country = $self->SUPER::country();
	return $country || $self->{_cnty};
}

1;

__END__