use strict;
use warnings;

use Test::More tests => 2;

use XML::Feed;
my $feed = XML::Feed->parse(URI->new('http://yapgh.blogspot.com/feeds/posts/default')) or die XML::Feed->errstr;

print $feed->title, "\n";



for my $entry ($feed->entries) {

my @tags = $entry->category;
print("Tags : " . join(",", @tags) . "\n");

}