File Coverage

blib/lib/Code/TidyAll/Plugin/SVG.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Code::TidyAll::Plugin::SVG;

use strict;
use warnings;

use XML::Twig;
use String::Escape qw(escape);

use Moo;
use namespace::clean;

extends 'Code::TidyAll::Plugin';

our $AUTHORITY = 'cpan:JONASS';
our $VERSION   = '0.003';

has 'indent'   => ( is => 'ro', default => sub {"\t"} );
has 'style'    => ( is => 'ro', default => sub {'cvs'} );
has 'comments' => ( is => 'ro', default => sub {'keep'} );

sub transform_file
{
	my $self = shift;
	my $file = shift;

	my $svg = XML::Twig->new(
		keep_encoding => 1,
		pretty_print  => $self->style,
		comments      => $self->comments,
		twig_handlers => {
			_all_ => sub { $_[0]->flush; },
		}
	);

	$svg->set_indent(
		escape( 'unqqbackslash unsinglequote', $self->indent ) );

	$svg->parsefile_inplace($file);
}

1;

__END__