File Coverage

blib/lib/Metabrik/String/Random.pm
Criterion Covered Total %
statement 9 15 60.0
branch n/a
condition 0 3 0.0
subroutine 3 5 60.0
pod 1 2 50.0
total 13 25 52.0


line stmt bran cond sub pod time code
1             #
2             # $Id$
3             #
4             # string::random Brik
5             #
6             package Metabrik::String::Random;
7 1     1   770 use strict;
  1         2  
  1         28  
8 1     1   4 use warnings;
  1         2  
  1         26  
9              
10 1     1   4 use base qw(Metabrik::String::Password);
  1         2  
  1         284  
11              
12             sub brik_properties {
13             return {
14 0     0 1   revision => '$Revision$',
15             tags => [ qw(unstable) ],
16             author => 'GomoR ',
17             license => 'http://opensource.org/licenses/BSD-3-Clause',
18             attributes => {
19             datadir => [ qw(datadir) ],
20             },
21             attributes_default => {
22             charset => [ 'A'..'K', 'M'..'Z', 'a'..'k', 'm'..'z', 2..9, '_', '-' ],
23             length => 20,
24             count => 1,
25             },
26             commands => {
27             filename => [ qw(datadir|OPTIONAL) ],
28             },
29             };
30             }
31              
32             sub filename {
33 0     0 0   my $self = shift;
34 0           my ($datadir) = @_;
35              
36 0   0       $datadir ||= $self->datadir;
37              
38 0           my $random = $self->generate;
39              
40 0           return "$datadir/".$random->[0];
41             }
42              
43             1;
44              
45             __END__