File Coverage

blib/lib/Web/Sitemap/Url.pm

Criterion	Covered	Total	%
statement	43	45	95.5
branch	17	24	70.8
condition	2	3	66.6
subroutine	7	7	100.0
pod	0	2	0.0
total	69	81	85.1

package Web::Sitemap::Url;

our $VERSION = '0.903';

use strict;
use warnings;
use utf8;

use Carp;

sub new
{
	my ($class, $data, %p) = @_;

	my %allowed_keys = map { $_ => 1 } qw(
		mobile loc_prefix
	);

	my @bad_keys = grep { !exists $allowed_keys{$_} } keys %p;
	croak "Unknown parameters: @bad_keys" if @bad_keys;

	my $self = {
		mobile => 0,
		loc_prefix => '',
		%p,    # actual input values
	};

	if (not ref $data) {
		croak 'Web::Sitemap::Url first argument must be defined'
			unless defined $data;
		$self->{loc} = $data;
	}
	elsif (ref $data eq 'HASH') {
		unless (defined $data->{loc}) {
			croak 'Web::Sitemap::Url first argument hash must have `loc` key defined';
		}
		$self = {%$self, %$data};
	}
	else {
		croak 'Web::Sitemap::Url first argument must be a string or a hash reference';
	}

	return bless $self, $class;
}

sub to_xml_string
{
	my ($self, %p) = @_;

	return sprintf(
		"\n%s%s%s%s%s",
		$self->{loc_prefix},
		$self->{loc},
		$self->{changefreq} ? sprintf('%s', $self->{changefreq}) : '',
		$self->{mobile} ? '' : '',
		$self->_images_xml_string
	);
}

sub _images_xml_string
{
	my ($self) = @_;

	my $result = '';

	if (defined $self->{images}) {
		my $i = 1;
		for my $image (@{$self->{images}{loc_list}}) {
			my $loc = ref $image eq 'HASH' ? $image->{loc} : $image;

			my $caption = '';
			if (ref $image eq 'HASH' and defined $image->{caption}) {
				$caption = $image->{caption};
			}
			elsif (defined $self->{images}{caption_format_simple}) {
				$caption = $self->{images}{caption_format_simple} . " $i";
			}
			elsif (defined $self->{images}{caption_format}) {
				$caption = &{$self->{images}{caption_format}}($i);
			}

			$result .= sprintf(
				"\n%s
				$loc, $caption
			);

			$i++;
		}
	}

	return $result;
}

1;

__END__