File Coverage

blib/lib/Text/Livedoor/Wiki/Plugin/Function/AName.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	31	31	100.0

package Text::Livedoor::Wiki::Plugin::Function::AName;
use warnings;
use strict;
use base qw/Text::Livedoor::Wiki::Plugin::Function/;
__PACKAGE__->function_name('aname');

sub prepare_args {
    my $class= shift;
    my $args = shift;
    die 'no arg' unless scalar @$args ;
    my $name = $args->[0];
    # XXX is this regexp valid??  copy from old formatter
    die 'invalid format' unless $name =~ /^[a-zA-Z0-9\$\-_\.\+!\*'\(\),;\/\?:@&=]+$/;
    return { name => $name };
}
sub process {
    my ( $class, $inline, $data ) = @_;
    my $name  = $data->{args}{name};
    my $value = $data->{value};
    $value = $inline->parse( $value );
    return qq{$value};
}

1;

=head1 NAME

Text::Livedoor::Wiki::Plugin::Function::AName - Aname Function Plugin

=head1 DESCRIPTION

anchor label where to jump

=head1 SYNOPSIS

 [[target>>#my_a_name]] <- jump to my_a_name anchor



 &aname(my_a_name){a name link label}

=head1 FUNCTION

=head2 prepare_args

=head2 process

=head1 AUTHOR

polocky

=cut