File Coverage

blib/lib/WWW/Mechanize/Image.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	3	4	75.0
condition	1	2	50.0
subroutine	13	13	100.0
pod	11	11	100.0
total	56	58	96.5

package WWW::Mechanize::Image;

use strict;
use warnings;

our $VERSION = '2.17';

#ABSTRACT: Image object for WWW::Mechanize


sub new {
    my $class  = shift;
    my $params = shift || {};

    my $self = bless {}, $class;

    for my $param (qw( url base tag height width alt name attrs )) {

        # Check for what we passed in, not whether it's defined
        $self->{$param} = $params->{$param} if exists $params->{$param};
    }

    # url and tag are always required
    for (qw( url tag )) {
        exists $self->{$_}
            or die "WWW::Mechanize::Image->new must have a $_ argument";
    }

    return $self;
}


sub url    { return ( $_[0] )->{url}; }
sub base   { return ( $_[0] )->{base}; }
sub name   { return ( $_[0] )->{name}; }
sub tag    { return ( $_[0] )->{tag}; }
sub height { return ( $_[0] )->{height}; }
sub width  { return ( $_[0] )->{width}; }
sub alt    { return ( $_[0] )->{alt}; }
sub attrs  { return ( $_[0] )->{attrs}; }


sub URI {
    my $self = shift;

    require URI::URL;
    my $URI = URI::URL->new( $self->url, $self->base );

    return $URI;
}


sub url_abs {
    my $self = shift;

    return $self->URI->abs;
}


1;

__END__