1package Text::Trac::LinkResolver::Report; 2 3use strict; 4use warnings; 5use base qw( Text::Trac::LinkResolver ); 6 7our $VERSION = '0.24'; 8 9sub init { 10 my $self = shift; 11 $self->{pattern} = '!?\{\d+\}'; 12} 13 14sub format_link { 15 my ( $self, $match, $target, $label ) = @_; 16 return $match if $self->_is_disabled; 17 18 my $c = $self->{context}; 19 $label ||= $match; 20 my ($rev) = ( $match =~ m/(\d+)/ ); 21 22 my $url = $c->{trac_report_url} || $c->trac_url . 'report/'; 23 $url .= $rev; 24 return sprintf '<a %s href="%s">%s</a>', ( $c->{class} ? q{class="report"} : '' ), $url, $label; 25} 26 271; 28