File Coverage

blib/lib/App/Lazyd.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package App::Lazyd;

use strict;
use warnings;

our $VERSION = '0.01';

use Net::Delicious;
use URI::Title qw( title );

sub run {
    my (undef, $config, $url, @tags) = @_;

    die "Need to set both username and password."
	unless defined($config->{username}) && defined($config->{password});

    die "You should give me an URL, dude.\n"
	unless defined $url;

    my $del = Net::Delicious->new({
	user => $config->{username},
	pswd => $config->{password}
    });

    my $title = title($url) || "";

    $del->add_post({
	url => $url,
	tags => join(" ", @tags, split(/\W/, "$url  $title")),
	description => $url,
    });
}

1;
__END__