File Coverage

File:blib/lib/Image/Caa/DitherRandom.pm
Coverage:100.0%

linestmtbrancondsubtimecode
1package Image::Caa::DitherRandom;
2
3
2
2
2
2
9
4
12
use strict;
4
2
2
2
2
12
3
10
use warnings;
5
6sub new {
7
2
2
8
        my ($class, $args) = @_;
8
9
2
8
        my $self = bless {}, $class;
10
11
2
12
        return $self;
12}
13
14sub init {
15
2
2
12
        srand(time() ^ ($$ + ($$ << 15)));
16}
17
18sub get {
19
16
16
75
        return int(rand(0xff));
20}
21
22
4
4
24
sub increment {
23}
24
25
261;