File Coverage

lib/Games/Bingo/Print.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Games::Bingo::Print;

# $Id: Print.pm 1835 2007-03-17 17:36:20Z jonasbn $

use strict;
use warnings;
use integer;
use Carp qw(croak);
use PDFLib;
use vars qw($VERSION);

use Games::Bingo::Card;

$VERSION = '0.04';

sub new {
    my ( $class, %opts ) = @_;

    my $self = bless {
        text => $opts{text} ? $opts{text} : 'by jonasbn ',
        heading   => $opts{heading}   ? $opts{heading}   : 'Games::Bingo',
        papersize => $opts{papersize} ? $opts{papersize} : 'a4',
    }, $class || ref $class;

    eval {
        $self->{pdf} = PDFLib->new(
            filename => $opts{filename} ? $opts{filename} : 'bingo.pdf',
            papersize => $self->{papersize},
            creator   => 'Games::Bingo::Print',
            author    => 'Jonas B. Nielsen',
            title     => 'Bingo!',
        );
        $self->{pdf}->start_page;
    };

    if ($@) {
        croak 'Unable to construct object - '.$@;
    } else {
        return $self;
    }
}

sub print_pages {
    my ( $self, $pages, $cards ) = @_;

    eval {
        foreach my $i ( 1 .. $pages )
        {

            if ($cards) {
                if ( $cards > 3 ) {
                    $cards = 3;
                }
            } else {
                $cards = 3;
            }

            $self->{pdf}->set_font(
                face => 'Helvetica',
                size => 40,
                bold => 1
            );
            $self->{pdf}->print_boxed(
                $self->{heading},
                mode => 'center',
                'x'  => 0,
                'y'  => 740,
                'w'  => 595,
                'h'  => 50
            );
            $self->{pdf}->set_font(
                face => 'Helvetica',
                size => 12,
                bold => 1
            );
            $self->{pdf}->print_boxed(
                $self->{text},
                'mode' => 'center',
                'x'    => 0,
                'y'    => 685,
                'w'    => 595,
                'h'    => 50
            );

            my $y_start_cordinate = 685;
            my $x_start_cordinate = 30;
            my $size              = 60;
            my $yec;
            my $ysc;
            my $cardsize = $size * 3;

            for ( my $card = 1; $card <= $cards; $card++ ) {

                $ysc = $y_start_cordinate - $cardsize;
                $yec = $ysc + $cardsize;

                $self->_print_card(
                    size              => $size,
                    x_start_cordinate => $x_start_cordinate,
                    y_start_cordinate => $ysc,
                    y_end_cordinate   => $yec,
                );
                $y_start_cordinate = $ysc - 50;
            }
        }
        $self->{pdf}->stroke;
        $self->{pdf}->finish;
    };

    if ($@) {
        carp ('Unable to generate page - '.$@);
        return 0;
    } else {
        return 1;
    }
}

sub _print_card {
    my $self = shift;
    my %args = @_;

    my $p = Games::Bingo::Card->new();
    $p = $p->populate();

    my $ysc  = $args{'y_start_cordinate'};
    my $yec  = $args{'y_end_cordinate'};
    my $xsc  = $args{'x_start_cordinate'};
    my $size = $args{'size'};

    my $y = 3;
    for ( my $ry = $ysc; $ry < $yec; $ry += $size ) {
        my @numbers;
        for ( my $x = 0; $x <= 9; $x++ ) {
            push( @numbers, $p->[ $x - 1 ]->[ $y - 1 ] );
        }
        $self->_print_row(
            size              => $size,
            x_start_cordinate => $xsc,
            y_start_cordinate => $ry,
            x_end_cordinate   => 540,
            numbers           => \@numbers,
        );
        $y--;
    }
    return 1;
}

sub _print_row {
    my $self = shift;
    my %args = @_;

    my $ysc     = $args{'y_start_cordinate'};
    my $xsc     = $args{'x_start_cordinate'};
    my $xec     = $args{'x_end_cordinate'};
    my $size    = $args{'size'};
    my $numbers = $args{'numbers'};

    my $x;
    for ( my $rx = $xsc; $rx <= $xec; $rx += $size ) {
        ++$x;
        my $label = $numbers->[$x] ? $numbers->[$x] : '';

        $self->{pdf}->rect(
            'x' => $rx,
            'y' => $ysc,
            'w' => $size,
            'h' => $size
        );
        $self->{pdf}->stroke;
        $self->{pdf}->set_font(
            face => 'Helvetica',
            size => 40,
            bold => 1
        );
        $self->{pdf}->print_at(
            $label,
            'mode' => 'right',
            'w'    => $size,
            'h'    => $size,
            'x'    => $rx + 8,
            'y'    => $ysc + 13
        );

    }
    return 1;
}

1;

__END__