view release on metacpan or  search on metacpan

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

93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
    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