Text::AutoLink::Plugin::CPAN - AutoLink Perl Modules

Text-AutoLink documentation Contained in the Text-AutoLink distribution.

Index

Code Index:

NAME

Top

Text::AutoLink::Plugin::CPAN - AutoLink Perl Modules

DESCRIPTION

Top

Using this plugin,

  cpan://Text-AutoLink

becomes 

  http://search.cpan.org/search?query=Text-AutoLink
Text-AutoLink documentation Contained in the Text-AutoLink distribution. 
# $Id: /mirror/perl/Text-AutoLink/trunk/lib/Text/AutoLink/Plugin/CPAN.pm 4207 2007-10-27T13:33:47.814555Z daisuke  $
#
# Copyright (c) 2006 Daisuke Maki <dmaki@cpan.org>
# All rights reserved.

package Text::AutoLink::Plugin::CPAN;
use strict;
use warnings;
use base qw(Text::AutoLink::Plugin);
use URI;

sub process
{
    my $self = shift;
    my $ref = shift;

    $$ref =~ s{cpan://([A-Za-z0-9:_-]+)}{
                my $uri = URI->new('http://search.cpan.org/search');
                $uri->query_form(query => $1);
                $self->linkfy(href => $uri->as_string, text => $1);
        }gex;
}

1;

__END__