Lines 28-34
has url => ( is => 'rw', );
Link Here
|
28 |
|
28 |
|
29 |
has dir => ( |
29 |
has dir => ( |
30 |
is => 'rw', |
30 |
is => 'rw', |
31 |
default => '.', |
31 |
default => sub { '.' }, |
32 |
trigger => sub { |
32 |
trigger => sub { |
33 |
my ($self, $dir) = @_; |
33 |
my ($self, $dir) = @_; |
34 |
unless (-d $dir) { |
34 |
unless (-d $dir) { |
Lines 38-52
has dir => (
Link Here
|
38 |
} |
38 |
} |
39 |
); |
39 |
); |
40 |
|
40 |
|
41 |
has short => ( is => 'rw', default => 1 ); |
41 |
has short => ( is => 'rw', default => sub { 1 } ); |
42 |
|
42 |
|
43 |
has verbose => ( is => 'rw', default => 0 ); |
43 |
has verbose => ( is => 'rw', default => sub { 0 } ); |
44 |
|
44 |
|
45 |
has sth => ( is => 'rw' ); |
45 |
has sth => ( is => 'rw' ); |
46 |
|
46 |
|
47 |
has writer => ( is => 'rw', ); |
47 |
has writer => ( is => 'rw', ); |
48 |
|
48 |
|
49 |
has count => ( is => 'rw', default => 0); |
49 |
has count => ( is => 'rw', default => sub { 0 } ); |
50 |
|
50 |
|
51 |
|
51 |
|
52 |
sub run { |
52 |
sub run { |