File Coverage

blib/lib/App/DWG/Sort.pm

Criterion	Covered	Total	%
statement	45	53	84.9
branch	1	4	25.0
condition	2	6	33.3
subroutine	13	13	100.0
pod	2	2	100.0
total	63	78	80.7

package App::DWG::Sort;

use strict;
use warnings;

use CAD::AutoCAD::Detect qw(detect_dwg_file);
use Class::Utils qw(set_params);
use Error::Pure qw(err);
use File::Copy qw(move);
use File::Find::Rule;
use File::Find::Rule::DWG;
use File::Path qw(make_path);
use File::Spec::Functions qw(catfile);
use Getopt::Std;

our $VERSION = 0.01;

# Constructor.
sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# Process parameters.
	set_params($self, @params);

	# Object.
	return $self;
}

# Run.
sub run {
	my $self = shift;

	# Process arguments.
	$self->{'_opts'} = {
		'h' => 0,
	};
	if (! getopts('h', $self->{'_opts'}) || @ARGV < 1
		|| $self->{'_opts'}->{'h'}) {

		print STDERR "Usage: $0 [-h] [--version] directory\n";
		print STDERR "\t-h\t\tPrint help.\n";
		print STDERR "\t--version\tPrint version.\n";
		print STDERR "\tdirectory\tDirectory with DWG files.\n";
		return 1;
	}
	$self->{'_dir'} = shift @ARGV;

	foreach my $file (File::Find::Rule->dwg->in($self->{'_dir'})) {
		my $magic = detect_dwg_file($file);
		my $magic_dir = catfile($self->{'_dir'}, $magic);
		if (! -r $magic_dir) {
			make_path($magic_dir);
		}
		move($file, $magic_dir);
	}

	return 0;
}

1;


__END__