#!/usr/bin/perl
use v5.14;
use warnings;

use Getopt::Long;
use SVG::SpriteMaker;

my $prefix = 'sprite';
my $out;

GetOptions(
	'prefix|p=s' => \$prefix,
	'output|out|o=s' => \$out,
);

my $sprite = make_sprite $prefix, @ARGV;
if ($out) {
	open my $fh, '>', $out;
	select $fh;
}
say $sprite->xmlify;

__END__

=encoding utf-8

=head1 NAME

svg-spritemaker - Combine several SVG images into a single SVG sprite

=head1 SYNOPSIS

  svg-spritemaker [-o OUTPUT] [-p PREFIX] FILE...

  svg-spritemaker a.svg b.svg > sprite.svg                 # Standard usage
  svg-spritemaker -p img a.svg b.svg > sprite.svg          # Custom prefix
  svg-spritemaker -o sprite.svg dir/*.svg                  # Output file
  svg-spritemaker --prefix=logo --output=logos.svg logos/* # Long options

=head1 DESCRIPTION

svg-spritemaker takes several SVG images and combines them into a
single SVG sprite. See L<SVG::SpriteMaker> for more information about
SVG sprites.

=head1 OPTIONS

=over

=item B<-o> I<file>, B<--out>=I<file>, B<--output>=I<file>

Write the sprite into the following file, overwriting it if necessary.
By default the sprite is written on STDOUT.

=item B<-p> I<prefix>, B<--prefix>=I<prefix>

Sets the prefix for the fragment identifiers. Default is C<sprite>
(which results in identifiers C<sprite-a>, C<sprite-b> for the first
example in the SYNOPSIS).

=back

=head1 SEE ALSO

L<SVG::SpriteMaker>, L<https://css-tricks.com/svg-fragment-identifiers-work/>

=head1 AUTHOR

Marius Gavrilescu, E<lt>marius@ieval.roE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2015 by Marius Gavrilescu

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.20.2 or,
at your option, any later version of Perl 5 you may have available.


=cut