WWW::Mechanize::Link - Link object for WWW::Mechanize

WWW-Mechanize documentation Contained in the WWW-Mechanize distribution.

Index

Code Index:

NAME

Top

WWW::Mechanize::Link - Link object for WWW::Mechanize

SYNOPSIS

Top

Link object to encapsulate all the stuff that Mech needs but nobody wants to deal with as an array.

Constructor

Top

new()

    my $link = WWW::Mechanize::Link->new( {
        url  => $url,
        text => $text,
        name => $name,
        tag  => $tag,
        base => $base,
        attr => $attr_href,
    } );

For compatibility, this older interface is also supported:

 new( $url, $text, $name, $tag, $base, $attr_href )

Creates and returns a new WWW::Mechanize::Link object.

Accessors

Top

URL from the link

$link->text()

Text of the link

NAME attribute from the source tag, if any.

Tag name (one of: "a", "area", "frame", "iframe" or "meta").

Base URL to which the links are relative.

Returns hash ref of all the attributes and attribute values in the tag.

Returns the URL as a URI::URL object.

Returns a URI::URL object for the absolute form of the string.

SEE ALSO

Top

WWW::Mechanize and WWW::Mechanize::Image

COPYRIGHT & LICENSE

Top

Copyright 2004-2010 Andy Lester.

This program is free software; you can redistribute it and/or modify it under the terms of either:

* the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version, or
* the Artistic License version 2.0.
WWW-Mechanize documentation Contained in the WWW-Mechanize distribution. 
package WWW::Mechanize::Link;

use strict;
use warnings;


sub new {
    my $class = shift;

    my $self;

    # The order of the first four must stay as they are for
    # compatibility with older code.
    if ( ref $_[0] eq 'HASH' ) {
        $self = [ @{$_[0]}{ qw( url text name tag base attrs ) } ];
    }
    else {
        $self = [ @_ ];
    }

    return bless $self, $class;
}


sub url   { return ($_[0])->[0]; }
sub text  { return ($_[0])->[1]; }
sub name  { return ($_[0])->[2]; }
sub tag   { return ($_[0])->[3]; }
sub base  { return ($_[0])->[4]; }
sub attrs { return ($_[0])->[5]; }


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;
}


# vi:et:sw=4 ts=4

1;