view release on metacpan or  search on metacpan

KacurCZ.pm  view on Meta::CPAN

		_fix_url($book_hr, 'url');
		_fix_url($book_hr, 'cover_url');
		$book_hr->{'author'}
			= $book_hr->{'author_publisher'}->[0];
		$book_hr->{'author'} =~ s/\N{U+00A0}$//ms;
		$book_hr->{'publisher'}
			= $book_hr->{'author_publisher'}->[1];
		$book_hr->{'publisher'} =~ s/\N{U+00A0}$//ms;
		delete $book_hr->{'author_publisher'};
		($book_hr->{'old_price'}, $book_hr->{'price'})
			= split m/\s*\*\s*/ms, $book_hr->{'price'};
		push @{$self->{'cache'}}, $book_hr;
	}

	return;
}

1;

__END__