File Coverage

blib/lib/App/Slackeria/Plugin/Freshmeat.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package App::Slackeria::Plugin::Freshmeat;

use strict;
use warnings;
use 5.010;

use parent 'App::Slackeria::Plugin';

use WWW::Freshmeat;

our $VERSION = '0.12';

sub new {
	my ( $obj, %conf ) = @_;
	my $ref = {};
	$ref->{default} = \%conf;
	$ref->{default}->{href} //= 'http://freshmeat.net/projects/%s/';
	$ref->{fm} = WWW::Freshmeat->new( token => $conf{token} );
	return bless( $ref, $obj );
}

sub check {
	my ( $self, $res ) = @_;

	my $fp = $self->{fm}->retrieve_project( $self->{conf}->{name} );

	if ( defined $fp ) {
		return {
			data        => $fp->version(),
			description => $fp->description(),
		};
	}
	else {
		die("not found\n");
	}
}

1;

__END__