XML::FeedPP::Plugin::AddMP3 - FeedPP Plugin for adding MP3 as item.

    use XML::FeedPP;
    my $feed = XML::FeedPP->new( 'index.rss' );
    $feed->call(AddMP3 => './mp3/test.mp3');
    $feed->to_file('rss.xml');

    $feed->call(AddMP3 => './mp3/test.mp3');

    my %opt = (
        base_dir   => './mp3'
        base_url   => 'http://example.com/podcast/files',
        link_url   => 'http://example.com/podcast',
        use_itunes => 1,
    );
    $feed->call(AddMP3 => './mp3/test.mp3');

package XML::FeedPP::Plugin::AddMP3;

use strict;
use vars qw( @ISA );
@ISA = qw( XML::FeedPP::Plugin );

use vars qw( $VERSION );
$VERSION = "0.02";

use Carp;
use MP3::Info;
use Path::Class;

my $re_utf8 = qr/(?:[\x00-\x7f]|[\xC0-\xDF][\x80-\xBF]|[\xE0-\xEF][\x80-\xBF]{2}|[\xF0-\xF7][\x80-\xBF]{3})/;
my $use_encode = undef;
my $use_jcode = undef;

sub run {
	my $class = shift;
	my $feed = shift;
	&add_mp3( $feed, @_ );
}

sub add_mp3 {
	my $feed = shift;
	my $file = shift;
	my %opt  = @_;
	# check link
	my $link = ($opt{'link_url'}) ? $opt{'link_url'} : $feed->link;
	return unless (defined($link) and length($link));
	# check file and get its information
	my $path = Path::Class::file($file);
	Carp::croak "File not exists - $file" if (not -f $path);
	my $stat = File::stat::stat("$path")       or Carp::croak "Failed to get file stat - $file";
	my $tags = MP3::Info::get_mp3tag("$path")  or Carp::croak "Failed to get mp3 tags - $file";
	my $info = MP3::Info::get_mp3info("$path") or Carp::croak "Failed to get mp3 info - $file";
	# define url
	my $url = Path::Class::file($file);
	$url = $url->relative($opt{'base_dir'}) if ($opt{'base_dir'});
	$url = $url->as_foreign('Unix')->stringify;
	if ($opt{'base_url'}) {
		my $base_url = $opt{'base_url'};
		$base_url =~ s/\/$//;
		$url =~ s/^\///;
		$url = "$base_url/$url";
	}
	# add item
	my $item = $feed->add_item($link);
	$item->guid($url);
	$item->pubDate($stat->mtime);
	my $podcast = {
		'title'             => $tags->{'TITLE'},
		'author'            => $tags->{'ARTIST'},
		'description'       => '',                # CDATA is allowed
		'enclosure@url'     => $url,
		'enclosure@length'  => $stat->size,
		'enclosure@type'    => 'audio/mpeg',
	};
	foreach my $key (%{$podcast}) {
		my $value = &rewrite_value($podcast->{$key});
		if (defined($value)) {
			if (my $error = &is_invalid($value)) {
				Carp::carp "$error - $file->$key, '$value'";
			}
			$item->set($key => $value);
		}
	}
	# for itunes
	if ($opt{'use_itunes'}) {
		$feed->xmlns('xmlns:itunes' => 'http://www.itunes.com/DTDs/Podcast-1.0.dtd');
		my $itunes  = {
			'itunes:author'     => $tags->{'ARTIST'},
			'itunes:subtitle'   => [$tags->{'ALBUM'}, $tags->{'TRACKNUM'}],
			'itunes:summary'    => '',                # CDATA is disallowed
			'itunes:duration'   => $info->{'TIME'},
			'itunes:keywords'   => [$tags->{'ARTIST'}, $tags->{'YEAR'}],
		};
		foreach my $key (%{$itunes}) {
			my $value = &rewrite_value($itunes->{$key});
			$item->set($key => $value) if (defined($value));
		}
	}
	return $item;
}

sub is_invalid {
	my $value = shift;
	return "Not utf8 character, ignored" unless ($value =~ /^(?:$re_utf8)*$/);
	return;
}

sub rewrite_value {
	my $value = shift;
	if (UNIVERSAL::isa($value, 'ARRAY')) {
		my @values = map { s/^\s+//s; s/\s+$//s; $_ } @{$value}; #}
		@values = map { &encode_value($_) } grep { length($_) } @values;
		$value = join(', ', @values);
	} else {
		$value = &encode_value($value);
	}
	return (defined($value) and length($value)) ? $value : undef;
}

sub encode_value {
	my $value = shift;
	return $value if (defined($use_encode) and defined($use_jcode) and not ($use_encode or $use_jcode)); # Can't encode (already tried).
	return $value if (not defined($value));         # $value is null.
	return $value if ($value =~ /^(?:$re_utf8)*$/); # $value is utf8.
	# try Encode
	if (not defined($use_encode)) {
		eval { use Encode; };
		$use_encode = $@ ? 0 : 1;
	}
	return encode_utf8($value) if ($use_encode);
	# try Jcode
	if (not defined($use_jcode)) {
		eval { use Jcode; };
		$use_jcode = $@ ? 0 : 1;
	}
	return Jcode->new($value)->utf8 if ($use_jcode);
	# can't encode
	return $value;
}

1;