File Coverage

blib/lib/Template/Plugin/xkcd.pm

Criterion	Covered	Total	%
statement	18	21	85.7
branch	1	2	50.0
condition	0	4	0.0
subroutine	6	6	100.0
pod	2	2	100.0
total	27	35	77.1

package Template::Plugin::xkcd;
# ABSTRACT: WWW::xkcd plugin for Template::Toolkit
$Template::Plugin::xkcd::VERSION = '0.004';
use strict;
use warnings;

use parent 'Template::Plugin';
use WWW::xkcd;

sub new {
    my $class   = shift;
    my $context = shift;

    my $self = bless {
       'xkcd' => WWW::xkcd->new,
    }, $class;
}

sub comic {
    my $self = shift;
    my $num  = shift;
    my $meta = $self->{'xkcd'}->fetch_metadata( $num ? $num : () );

    # return HTML
    my $img = $meta->{'img'} || '';
    my $alt = $meta->{'alt'} || '';

    return qq{};
}

1;

__END__