view release on metacpan or  search on metacpan

lib/App/DistSync.pm  view on Meta::CPAN

            $f = "'$f'";
        }
        print M $f, "\t" x $tabs, $text, "\n";
    }
    close M;

    unlink $file_bak;

    return 1;
}
sub fetch($$$) { # Returns structire
    my $url = shift;
    my $obj = shift;
    my $file = shift;

    my $ret = {
            status  => 0, # Status
            mtime   => 0, # Last-Modified in ctime format or 0
            size    => 0, # tContent-length
            code    => 0, # Status code
        };