view release on metacpan or  search on metacpan

lib/Pod/Extract/URI.pm  view on Meta::CPAN

    return @{ $self->{ URI_LIST } };
}

=head2 uri_details()

    my %details = $peu->uri_details();

Returns a hash of data about the URIs found.

The keys of the hash are the URIs (which match those returned by C<uris()>).

The values of the hash are arrayrefs of hashrefs. Each hashref contains

=over 4

=item uri

The URI object returned by C<URI::Find>.

=item text

The text returned by C<URI::Find>, which will have the brackets stripped
from it if C<strip_brackets> has been specified.

=item original_text

The original text returned by C<URI::Find>.

=item line

The initial line number of the paragraph in which the URI was found.

=item para

The C<Pod::Paragraph> object corresponding to the paragraph where the URI
was found.

=back

=cut

sub uri_details {
    my $self = shift;
    return %{ $self->{ URIS } };
}

=head1 STOP URIS

You can specify URIs to ignore in your POD, using a C<=for stop_uris>
command, e.g.

    =for stop_uris www.foobar.com

These will be converted to patterns as if they had been passed in via
C<stop_uris()> directly, and will apply from the point of the command
onwards.


=head1 AUTHOR

Ian Malpass (ian-cpan@indecorous.com)


=head1 COPYRIGHT

Copyright 2007, Ian Malpass

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


=head1 SEE ALSO

L<URI::Find>, L<URI::Find::Schemeless>, L<URI>.

=cut

1;