File Coverage

blib/lib/WWW/DuckDuckGo/Icon.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	5	6	83.3
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	22	24	91.6

package WWW::DuckDuckGo::Icon;
BEGIN {
  $WWW::DuckDuckGo::Icon::AUTHORITY = 'cpan:DDG';
}
{
  $WWW::DuckDuckGo::Icon::VERSION = '0.016';
}
# ABSTRACT: A DuckDuckGo Icon definition

use Moo;
use URI;

sub by {
	my ( $class, $icon_result ) = @_;
	my %params;
	$params{url} = URI->new($icon_result->{URL}) if $icon_result->{URL};
	$params{height} = $icon_result->{Height} if $icon_result->{Height};
	$params{width} = $icon_result->{Width} if $icon_result->{Width};
	__PACKAGE__->new(%params);
}

has url => (
	is => 'ro',
	predicate => 'has_url',
);

has width => (
	is => 'ro',
	predicate => 'has_width',
);

has height => (
	is => 'ro',
	predicate => 'has_height',
);

1;

__END__