File Coverage

blib/lib/App/supertouch.pm

Criterion	Covered	Total	%
statement	26	36	72.2
branch	7	18	38.8
condition	1	3	33.3
subroutine	5	5	100.0
pod	0	1	0.0
total	39	63	61.9

package App::supertouch;

use strict;
use warnings;
use 5.008001;
use Path::Tiny qw( path );

# ABSTRACT: Touch with directories
our $VERSION = '0.01'; # VERSION


sub main
{
  my(undef, @args) = @_;

  my $verbose = 0;
  my $options = 1;

  foreach my $arg (@args)
  {
    if($options && $arg =~ /^-/)
    {
      if($arg eq '--')
      {
        $options = 0;
      }
      elsif($arg eq '-v')
      {
        $verbose = 1;
      }
      next;
    }
    if($arg eq '')
    {
      print STDERR "'' (empty) is not a legal filename";
      return 2;
    }
    my $file = path($arg);
    if($file->is_dir)
    {
      print STDERR "$file is a directory";
      return 2;
    }
    unless(-d $file->parent)
    {
      print "DIR  @{[ $file->parent ]}\n" if $verbose;
      $file->parent->mkpath;
    }
    unless(-f $file)
    {
      print "FILE @{[ $file ]}\n" if $verbose;
      $file->touch;
    }
  }

  return 0;
}

1;

__END__