|
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 { |