File Coverage

blib/lib/Dancer/Plugin/XML/RSS.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 Dancer::Plugin::XML::RSS;
{
  $Dancer::Plugin::XML::RSS::VERSION = '0.02_01';
}
{
  $Dancer::Plugin::XML::RSS::DIST = 'Dancer-Plugin-XML-RSS';
}

use Dancer ':syntax';
use Dancer::Plugin;

use XML::RSS;

register 'rss' => sub {
    my $option   = shift; # 'new' force creation of new obj
    my $settings = plugin_setting || {};

    debug( $settings );

    # need to lookup format for plugin setting and see if this will map to
    # values correct in xml::rss object
    var xml_rss_obj => (
        ! vars->{xml_rss_obj} || ( defined $option && $option =~ /new/i ) ?
            XML::RSS->new( %{ $settings } ) : vars->{xml_rss_obj} );

    return vars->{xml_rss_obj};
};

register 'rss_output' => sub {
    content_type('text/xml'); # or application/xml+rss?
    return vars->{xml_rss_obj}->as_string;
};

register_plugin;

1;

# ABSTRACT: Dancer plugin for using XML::RSS to parse or create RSS feeds

__END__