app-markfiles/bin/marks-remove

#!/usr/bin/env perl

=pod

=head1 NAME

marks-remove - remove files from the current set of marked files

=head1 SYNOPSIS

  marks-remove:  removes filesystem paths from the mark list

  USAGE:
    marks remove path_to_mark

  EXAMPLE:
    marks remove foo.txt

=head1 AUTHOR

Brennen Bearnes

=cut

use warnings;
use strict;
use 5.10.0;

use App::MarkFiles qw(remove);
use Cwd qw(cwd abs_path);
use Getopt::Long;
use Pod::Usage;

GetOptions(
  help => sub { pod2usage(0) },
) or pod2usage(2);

remove(map { abs_path($_) } @ARGV);