#!usr/bin/perl
use lib 'lib';
use Salus::Command;

my %map;
for (@ARGV) {
	my ($key, $value) = split("\=", $_, 2);
	$map{$key} = $value;
}

Salus::Command->new(\%map)->run;

__END__

=head1 NAME
 
salus - salus
 
=head1 USAGE
 
        lnation:High lnation$ salus lib=t/lib class=RA
 
=cut

=head2 Options

	Welcome to the command line interface for Salus

	The following are commands that can be used to manipulate a Salus CSV

	+ Headers
		print the headers of the csv - headers
	+ Read File
		read a salus csv file - read $filepath
	+ Add Row
		add a new row, the delimeter is a space not wrapped in quotations - add $one $two $three
	+ All
		print all rows - all
	+ Get Row
		retrieve a row by index and print it to the terminal - get $index
	+ Get Row Column
		retrieve a column by row and column index and print it to the terminal - get_col $row $col
	+ Set Row
		set an existing row by index - set $index
	+ Set Row Column
		set a columns value by row and column index - set_col $row $col
	+ Delete Row
		delete a row by index - delete $row
	+ Delete Row
		delete a column by row index and column index - delete $row $col
	+ Write File
		write data to a file - write $filepath
	+ Exit
		to exit you can either use - CTRL C -  or type - exit

=cut

1;


