view release on metacpan or  search on metacpan

HTPL-modules/lib/HTML/HTPL/Lib.pm  view on Meta::CPAN

    join("", map { $set[int(rand(@set))] } 1 .. $len);
}

sub filedepend {
    my ($file1, $file2) = @_;
    return 1 unless (-f $file1);
    return undef unless (-f $file2);
    &lastmodified($file1) > &lastmodified($file2);
}

sub capture(&) {
    my $sub = shift;
    my $hnd = select;
    my $out = "CAP" . ++$htpl_capture;
    my $new = eval("\*$out");
    tie $new, 'HTML::HTPL::Stream';
    select $new;
    &$sub;
    select $hnd;
    my $text = $$new;
    $text;