File Coverage

blib/lib/Alien/Build/Plugin/Decode/SourceForge.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	4	6	66.6
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	44	46	95.6

package Alien::Build::Plugin::Decode::SourceForge;

use strict;
use warnings;
use 5.008001;
use Alien::Build::Plugin;
use URI;

# ABSTRACT: Alien::Build plugin to handle SourceForge links
our $VERSION = '0.01'; # VERSION


sub init
{
  my($self, $meta) = @_;

  $meta->add_requires( 'configure' => 'Alien::Build::Plugin::Decode::SourceForge' => 0 );

  $meta->around_hook(
    decode => sub {
      my($orig, $build, $html) = @_;

      my $list = $orig->($build, $html);

      if($list->{type} eq 'list')
      {

        @{ $list->{list} } = map { _rewrite($_) } @{ $list->{list} }

      }

      $list;
    },
  );
}

sub _rewrite
{
  my($link) = @_;

  my $uri = URI->new($link->{url});

  return $link unless $uri->host eq 'sourceforge.net';

  if($uri->path =~ m{/([^/]+)/download$})
  {
    return {
      filename => $1,
      url      => $link->{url},
    };
  }
  else
  {
    return $link;
  }
}

1;

__END__