File Coverage

blib/lib/Image/TextMode/Writer/Bin.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	11	11	100.0

package Image::TextMode::Writer::Bin;

use Moo;

extends 'Image::TextMode::Writer';

sub _write {
    my ( $self, $image, $fh, $options ) = @_;

    for my $row ( @{ $image->pixeldata } ) {
        print $fh
            join( '',
            map { pack( 'aC', @{ $_ }{ qw( char attr ) } ) } @$row );
    }
}

=head1 NAME

Image::TextMode::Writer::Bin - Writes Bin files

=head1 DESCRIPTION

Provides writing capabilities for the Bin format.

=head1 AUTHOR

Brian Cassidy [e-mail]

=head1 COPYRIGHT AND LICENSE

Copyright 2008-2014 by Brian Cassidy

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;