CPAN::Packager::Config::Replacer - replace variables like HOME

CPAN-Packager documentation Contained in the CPAN-Packager distribution.

Index

Code Index:

NAME

Top

CPAN::Packager::Config::Replacer - replace variables like HOME

SYNOPSIS

Top

  use CPAN::Packager::Config::Replacer;

DESCRIPTION

Top

AUTHOR

Top

Takatoshi Kitano <kitano.tk@gmail.com>

SEE ALSO

Top

LICENSE

Top

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

CPAN-Packager documentation Contained in the CPAN-Packager distribution. 
package CPAN::Packager::Config::Replacer;
use strict;
use warnings;

sub replace_variable {
    my ($class, $variable) = @_;
    $variable = $class->_replace_home($variable);
    $variable;
}

sub _replace_home {
    my ($class, $variable) = @_;
    $variable =~ s/^~/$ENV{HOME}/; 
    $variable;
}

1;

__END__