File Coverage

blib/lib/Vector/QRCode/EPS.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	17	19	89.4

package Vector::QRCode::EPS;
use 5.008005;
use strict;
use warnings;
use PostScript::Simple;
use Text::QRCode;

our $VERSION = "0.08";

sub generate {
    my ($class, %opts) = @_;
    my $text = $opts{text};
    my $size = $opts{size} || 10;
    my $unit = $opts{unit} || 'cm';
    my $colour = $opts{colour} || [10, 10, 10];
    my $bgcolour = $opts{bgcolour} || [255,255,255];
    my $transparent = $opts{transparent};

    my $qrcode_options = $opts{qrcode_options} || {};

    my $qrdata = Text::QRCode->new(%$qrcode_options)->plot($text);
    $qrdata = [reverse @$qrdata]; ### avoid to upside down

    my $xsize = scalar( @{$qrdata->[0]} );
    my $ysize = scalar( @{$qrdata} );

    my $ps = PostScript::Simple->new(
        colour => 1,
        eps => 1,
        units => $unit,
        xsize => $size,
        ysize => $size
    );

    unless ($transparent) {
        $ps->setcolour(@$bgcolour);
        $ps->box({filled => 1}, 0, 0, $size, $size);
    }

    $ps->setcolour(@$colour);
    my ($x, $y);
    for $y (0 .. $#{$qrdata}) {
        for $x (0 .. $#{$qrdata->[$y]} ) {
            if ($qrdata->[$y][$x] eq '*') {
                $ps->box(
                    {filled => 1},
                    $size/$xsize*$x, $size/$ysize*$y,
                    $size/$xsize*($x+1), $size/$ysize*($y+1)
                );
            }
        }
    }

    $ps;
}

1;
__END__