view release on metacpan or  search on metacpan

lib/Config/Source.pm  view on Meta::CPAN

You can restrict the saved keys with the same parameters specified in C<getall>.

=cut

sub save_file {
	my ( $this, $file, %p ) = @_;
	
	croak 'No user file spezified' if not $file;
	
	# a little bit optimised ;) - but fragile base class!
	my $hash = ( $p{include} or $p{exclude} )
				? $this->getall( %p )
				: $this->{_}
	;
	
	require Data::Dumper;
	
	my $dumper = Data::Dumper->new( [ $hash ] );
	$dumper->Useperl( 1 );
	$dumper->Terse( 1 );