Tools for modeling links between files / URLs / etc.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

pieces-remove 563B

123456789101112131415161718192021222324252627282930313233343536373839
  1. #!/usr/bin/env perl
  2. =pod
  3. =head1 NAME
  4. pieces-remove - remove files from the current set of marked files
  5. =head1 SYNOPSIS
  6. pieces-remove: removes paths from the pieces list
  7. USAGE:
  8. pieces remove path [...]
  9. EXAMPLE:
  10. pieces remove foo.txt
  11. =head1 AUTHOR
  12. Brennen Bearnes
  13. =cut
  14. use warnings;
  15. use strict;
  16. use 5.10.0;
  17. use App::Pieces;
  18. use Cwd qw(cwd abs_path);
  19. use Getopt::Long;
  20. use Pod::Usage;
  21. GetOptions(
  22. # 'config=s' => \$config_file,
  23. help => sub { pod2usage(0) },
  24. ) or pod2usage(2);
  25. App::Pieces->new()->remove(map { abs_path($_) } @ARGV);