File Coverage

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


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