File Coverage

blib/lib/Image/Index/LaTeX.pm

Criterion	Covered	Total	%
statement	35	40	87.5
branch	3	14	21.4
condition	1	2	50.0
subroutine	8	9	88.8
pod	2	2	100.0
total	49	67	73.1

package Image::Index::LaTeX;

use 5.008009;
use strict;
use warnings;
use File::Find qw(finddepth);
use Image::Size;

our $VERSION = '0.01';

sub new
{
	my ($class, @args) = @_;
	my $self = bless {}, $class;
	return $self->_init(@args);
}

sub _init
{
	my ($self, @dirs_or_files) = @_;

	# build list of image filenames
	$self->{'images'} = [
		grep {
			-f $_ && /\.(jpe?g|png|pdf|eps)$/i;
		}
		map {
			my @files = ();
			(-d $_ ?
				finddepth(sub { push @files, $File::Find::name }, $_) :
				do { push @files, $_ } );
			@files;
		}
		@dirs_or_files
	];

	$self->{'tmpl'} = {
		'latex' => q{
				\documentclass{article}

				\usepackage[margin=1cm]{geometry}
				\usepackage{graphicx}
				\usepackage{epstopdf}
				\geometry{screen}

				\begin{document}

				%[GRAPHICS]%

				\end{document}
			},

		'context' => q{
				\starttext

				%[GRAPHICS]%

				\stoptext
			},
	};

	return $self;
}

sub tex
{
	my ($self, %opts) = @_;

	my $flavour = lc($opts{'flavour'} || 'LaTeX');
	die "Error: supported flavours are: 'LaTeX' or 'ConTeXt'\n"
		if $flavour !~ /^(latex|context)$/;

	my $graphics =
		join '',
		map {
			my $file = $_;
			my ($width, $height) = (0, 0);
			($width, $height) = imgsize($file) if $file =~ /\.(png|jpe?g)$/i;

			($flavour eq 'latex' ?
				'\includegraphics['.
					($width > $height ?
						'width=\textwidth' :
						'height=\textheight').']{'.$file.'}'."\n".
				'\newpage'."\n"
					:
				'\useexternalfigure['.$file.']['.
					($width > $height ?
						'width=\textwidth' :
						'height=\textheight').']'."\n"
			);
		}
		@{$self->{'images'}};

	my $tex = $self->{'tmpl'}->{$flavour};
	$tex =~ s/\%\[GRAPHICS\]\%/$graphics/;
	return $tex;
}

1;
__END__