my $arguments = ( ref( $_[-1] ) eq 'HASH' ) ? $_[-1] : {};
return $self->NEXT::new(
- $self->merge_config_hashes( $self->config, $arguments ) );
+ $self->merge_config_hashes( $self->config, $arguments ) );
}
sub COMPONENT {
else {
my $class = ref $self || $self;
my $new = $self->merge_config_hashes(
- $self->config, $arguments );
+ $self->config, $arguments );
return bless $new, $class;
}
}
This program is free software, you can redistribute it and/or modify it under
the same terms as Perl itself.
-=cut
\ No newline at end of file
+=cut