view release on metacpan or  search on metacpan

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

    return $encoded;
}

###########################################
sub thaw {
###########################################
    my($self, $string) = @_;

    # Decode a hidden string 
    $string =~ s/^$self->{comment_char} //gm;
    my $decoded = decode_base64($string);
    return $decoded;
}

###########################################
sub replstring_extract {
###########################################
    my($self) = @_;

    my $text = $self->text();

    # Find the replace string in a patch