File Coverage

blib/lib/App/supertouch.pm

Criterion	Covered	Total	%
statement	32	45	71.1
branch	12	26	46.1
condition	1	3	33.3
subroutine	5	5	100.0
pod	0	1	0.0
total	50	80	62.5

package App::supertouch;

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

# ABSTRACT: Touch with directories
our $VERSION = '0.02'; # 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;
    }
    if($arg =~ s{[\\/]$}{})
    {
      my $dir = path($arg);
      if($dir->is_file)
      {
        print STDERR "$dir is a file";
        return 2;
      }
      unless(-d $dir)
      {
        print "DIR  @{[ $dir ]}\n" if $verbose;
        $dir->mkpath;
      }
    }
    else
    {
      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__