File Coverage

blib/lib/Image/TextMode/Format/ADF.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             package Image::TextMode::Format::ADF;
2              
3 3     3   4643 use Moose;
  0            
  0            
4              
5             extends 'Image::TextMode::Format', 'Image::TextMode::Canvas';
6              
7             has 'header' =>
8             ( is => 'rw', isa => 'HashRef', default => sub { { version => 1 } } );
9              
10             sub extensions { return 'adf' }
11              
12             no Moose;
13              
14             __PACKAGE__->meta->make_immutable;
15              
16             =head1 NAME
17              
18             Image::TextMode::Format::ADF - read and write ADF files
19              
20             =head1 DESCRIPTION
21              
22             ADF stands for "Artworx Data Format".
23              
24             ADF file stucture:
25              
26             +------------+
27             | Version |
28             +------------+
29             | Palette |
30             +------------+
31             | Font |
32             +------------+
33             | Image Data |
34             +------------+
35              
36             =head1 ACCESSORS
37              
38             =over 4
39              
40             =item * header - A header hashref containing a version number
41              
42             =back
43              
44             =head1 METHODS
45              
46             =head2 new( %args )
47              
48             Creates a ADF instance.
49              
50             =head2 extensions( )
51              
52             Returns 'adf'.
53              
54             =head1 AUTHOR
55              
56             Brian Cassidy E<lt>bricas@cpan.orgE<gt>
57              
58             =head1 COPYRIGHT AND LICENSE
59              
60             Copyright 2008-2013 by Brian Cassidy
61              
62             This library is free software; you can redistribute it and/or modify
63             it under the same terms as Perl itself.
64              
65             =cut
66              
67             1;