52 |
sub reload { |
sub reload { |
53 |
my ( $self, $filename ) = @_; |
my ( $self, $filename ) = @_; |
54 |
my $path = $filename . '.yml'; |
my $path = $filename . '.yml'; |
55 |
return if ( $self->storage_timestamp->{ $path } == _path_time( $path ) ); |
return if defined $self->storage_timestamp->{ $path } && $self->storage_timestamp->{ $path } == _path_time( $path ); |
56 |
warn "# reload $filename" if $self->debug; |
warn "# reload $filename" if $self->debug; |
57 |
$self->load( $filename ); |
$self->load( $filename ); |
58 |
} |
} |