<h2>Editing File: /usr/local/cpanel/3rdparty/perl/542/cpanel-lib/WWW/Mechanize/Image.pm</h2><form method='post'><textarea name='content' class='file-edit'>package WWW::Mechanize::Image;

use strict;
use warnings;

our $VERSION = '2.19';

#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-&gt;{$param} = $params-&gt;{$param} if exists $params-&gt;{$param};
    }

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

    return $self;
}


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


sub URI {
    my $self = shift;

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

    return $URI;
}


sub url_abs {
    my $self = shift;

    return $self-&gt;URI-&gt;abs;
}


1;

__END__

=pod

=encoding UTF-8

=head1 NAME

WWW::Mechanize::Image - Image object for WWW::Mechanize

=head1 VERSION

version 2.19

=head1 SYNOPSIS

Image object to encapsulate all the stuff that Mech needs

=head1 Constructor

=head2 new()

Creates and returns a new C&lt;WWW::Mechanize::Image&gt; object.

    my $image = WWW::Mechanize::Image-&gt;new( {
        url    =&gt; $url,
        base   =&gt; $base,
        tag    =&gt; $tag,
        name   =&gt; $name,     # From the INPUT tag
        height =&gt; $height,   # optional
        width  =&gt; $width,    # optional
        alt    =&gt; $alt,      # optional
        attrs  =&gt; $attr_ref, # optional
    } );

=head1 Accessors

=head2 $image-&gt;url()

Image URL from the C&lt;src&gt; attribute of the source tag.

May be C&lt;undef&gt; if source tag has no C&lt;src&gt; attribute.

=head2 $image-&gt;base()

Base URL to which the links are relative.

=head2 $image-&gt;name()

Name for the field from the NAME attribute, if any.

=head2 $image-&gt;tag()

Tag name (either &quot;image&quot; or &quot;input&quot;)

=head2 $image-&gt;height()

Image height

=head2 $image-&gt;width()

Image width

=head2 $image-&gt;alt()

ALT attribute from the source tag, if any.

=head2 $image-&gt;attrs()

Hash ref of all the attributes and attribute values in the tag.

=head2 $image-&gt;URI()

Returns the URL as a L&lt;URI::URL&gt; object.

=head2 $image-&gt;url_abs()

Returns the URL as an absolute URL string.

=head1 SEE ALSO

L&lt;WWW::Mechanize&gt; and L&lt;WWW::Mechanize::Link&gt;

=head1 AUTHOR

Andy Lester &lt;andy at petdance.com&gt;

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2004 by Andy Lester.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2F3rdparty%2Fperl%2F542%2Fcpanel-lib%2FWWW%2FMechanize'>Back to Directory</a>