@@ -, +, @@ --- Koha/Sitemapper.pm | 8 ++++---- Koha/Sitemapper/Writer.pm | 6 +++--- 2 files changed, 7 insertions(+), 7 deletions(-) --- a/Koha/Sitemapper.pm +++ a/Koha/Sitemapper.pm @@ -28,7 +28,7 @@ has url => ( is => 'rw', ); has dir => ( is => 'rw', - default => '.', + default => sub { '.' }, trigger => sub { my ($self, $dir) = @_; unless (-d $dir) { @@ -38,15 +38,15 @@ has 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 { --- a/Koha/Sitemapper/Writer.pm +++ a/Koha/Sitemapper/Writer.pm @@ -31,9 +31,9 @@ my $MAX = 50000; 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', ); @@ -122,4 +122,4 @@ sub end { } -1; +1; --