Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove deprecated libs

  • Loading branch information...
commit a082f9fc73ef40bd7a9c8228ee48be028c208371 1 parent 058d256
@tadzik authored
View
39 lib/File/Copy.pm
@@ -1,39 +0,0 @@
-use v6;
-
-module File::Copy;
-
-BEGIN {
- warn "File::Copy is now deprecated, "
- ~ "please use Rakudo's IO.copy() instead";
-}
-
-sub cp(Str $from, Str $to) is export {
- my $f1 = open $from, :r, :bin;
- my $f2 = open $to, :w, :bin;
- $f2.write($f1.read(4096)) until $f1.eof;
- $f1.close;
- $f2.close;
-}
-
-=begin pod
-
-=head1 NAME
-
-File::Copy -- copy files
-
-=head1 SYNOPSIS
-
- use File::Copy;
-
- cp 'source', 'destination';
-
-=head1 DESCRIPTION
-
-C<File::Copy> exports just one subroutine, cp taking two string
-parameters: source and destination. If something comes wrong, the
-internal open() or write() calls will die, C<copy()> has no special
-error reporting.
-
-=end pod
-
-# vim: ft=perl6
View
42 lib/File/Mkdir.pm
@@ -1,42 +0,0 @@
-use v6;
-
-module File::Mkdir;
-
-BEGIN {
- warn "File::Mkdir is now deprecated, "
- ~ "please use Shell::Command mkpath() instead";
-}
-
-multi sub mkdir(Str $name, $mode = 0o777, :$p!) is export {
- for [\~] $name.split('/').map({"$_/"}) {
- mkdir($_) unless .IO.d
- }
-}
-
-=begin pod
-
-=head1 NAME
-
-File::Mkdir -- provides recursive mkdir
-
-=head1 SYNOPSIS
-
- use File::Mkdir;
-
- # special mkdir exported in File::Mkdir
- mkdir '/some/directory/tree', :p;
- # just a casual, built-in mkdir
- mkdir 'directory';
-
-=head1 DESCRIPTION
-
-C<File::Mkdir> provides an mkdir variant, which, when provided the :p
-parameter, will create the directory tree recursively. For example,
-calling C<mkdir 'foo/bar', :p> will create the foo directory (unless
-it alredy exists), then the foo/bar directory (unless it exists).
-The standard Perl 6 C<mkdir> is still available, and will be called
-when the :p parameter is not passed.
-
-=end pod
-
-# vim: ft=perl6
View
10 t/02-file-copy.t
@@ -1,10 +0,0 @@
-use v6;
-use Test;
-use File::Copy;
-
-cp 't/test.file', 't/another.file';
-is slurp('t/test.file'),
- slurp('t/another.file'),
- "copied file is identical";
-unlink 't/another.file';
-done;
View
0  t/shell-command.t → t/02-shell-command.t
File renamed without changes
Please sign in to comment.
Something went wrong with that request. Please try again.