has dir => (
is => 'rw',
- default => '.',
+ default => sub { '.' },
trigger => sub {
my ($self, $dir) = @_;
unless (-d $dir) {
}
);
-has short => ( is => 'rw', default => 1 );
+has short => ( is => 'rw', default => sub { 1 } );
-has verbose => ( is => 'rw', default => 0 );
+has verbose => ( is => 'rw', default => sub { 0 } );
has sth => ( is => 'rw' );
has writer => ( is => 'rw', );
-has count => ( is => 'rw', default => 0);
+has count => ( is => 'rw', default => sub { 0 } );
sub run {
has sitemapper => (is => 'rw', );
-has current => ( is => 'rw', default => $MAX );
+has current => ( is => 'rw', default => sub { $MAX } );
-has count => ( is => 'rw', default => 0 );
+has count => ( is => 'rw', default => sub { 0 } );
has writer => ( is => 'rw', );
}
-1;
\ No newline at end of file
+1;