File Coverage

blib/lib/URI/magnet.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	28	28	100.0

package URI::magnet;
use warnings;
use strict;

use parent qw( URI::_generic URI::QueryParam );

our $VERSION = 0.03;

sub tr {
  my $self = shift;
  my @tr = map { URI->new($_) } $self->query_param('tr');

  return wantarray ? @tr : $tr[0];
}

{
  no strict 'refs'; ## no critic
  foreach my $method ( qw( dn xl kt ) ) {
    *{ __PACKAGE__ . "::$method" } =
      sub {
        return shift->query_param( $method );
      };
  }

  foreach my $method ( qw( xt as xs mt ) ) {
    *{ __PACKAGE__ . "::$method" } =
      sub {
        return URI->new( shift->query_param($method) );
      };
  }
}

*display_name      = \&dn;
*exact_length      = \&xl;
*keyword_topic     = \&kt;
*exact_topic       = \&xt;
*acceptable_source = \&as;
*exact_source      = \&xs;
*manifest_topic    = \&mt;
*address_tracker   = \&tr;


42;
__END__