← Back to branch summary

~ubuntu-branches/ubuntu/feisty/libhtml-linkextractor-perl/feisty

« back to all changes in this revision

Viewing changes to LinkExtractor.pm

  • Committer: Bazaar Package Importer
  • Author(s): Christian Sánchez
  • Date: 2006-03-06 00:24:51 UTC
  • mfrom: (3.1.3 dapper)
  • Revision ID: james.westby@ubuntu.com-20060306002451-j4b1qvwugh1vi8o8
Tags: 0.130-4
http://bugs.debian.org/344454
New maitainer. (Closes: #344454: ITA: libhtml-linkextractor-perl --
Perl module used to extract links from HTML documents)

Show diffs side-by-side

added added

removed removed

Lines of Context:
LinkExtractor.pm
7
7
use Carp qw( croak );
8
8
 
9
9
use vars qw( $VERSION );
10
 
$VERSION = '0.121';
 
10
$VERSION = '0.13';
11
11
 
12
12
## The html tags which might have URLs
13
13
# the master list of tagolas and required attributes (to constitute a link)
163
163
                    defined $$NL{'name'} &&  $$NL{'name'} =~ /refresh/i
164
164
                    ) ) {
165
165
 
166
 
                    my( $timeout, $url ) = split m{;\s*?URL=}, $$NL{content},2;
 
166
                    my( $timeout, $url ) = split m{;\s*?URL=}i, $$NL{content},2;
167
167
                    my $base = $self->{_base};
168
168
                    $$NL{url} = URI->new_abs( $url, $base ) if $base;
169
169
                    $$NL{url} = $url unless exists $$NL{url};
492
492
This method returns a reference to an ArrayOfHashes,
493
493
which basically looks like (Data::Dumper output)
494
494
 
495
 
    $VAR1 = [ { type => 'img', src => 'image.png' }, ];
 
495
    $VAR1 = [ { tag => 'img', src => 'image.png' }, ];
496
496
 
497
497
Please note that if yo provide a callback this array will be empty.
498
498
 
586
586
 
587
587
=head1 LICENSE
588
588
 
589
 
Copyright (c) 2003 by D.H. (PodMaster).
 
589
Copyright (c) 2003, 2004 by D.H. (PodMaster).
590
590
All rights reserved.
591
591
 
592
592
This module is free software;