version 1.12, 2010/01/10 04:08:59 |
version 1.13, 2010/01/10 07:07:46 |
|
|
package Text::Todo; |
package Text::Todo; |
|
|
# $RedRiver: Todo.pm,v 1.11 2010/01/10 01:01:45 andrew Exp $ |
# $RedRiver: Todo.pm,v 1.12 2010/01/10 04:08:59 andrew Exp $ |
|
|
use warnings; |
use warnings; |
use strict; |
use strict; |
|
|
todo_dir => undef, |
todo_dir => undef, |
todo_file => 'todo.txt', |
todo_file => 'todo.txt', |
done_file => undef, |
done_file => undef, |
report_file => undef, |
|
}; |
}; |
|
|
if ($options) { |
if ($options) { |
|
|
$self->_path_to( $opt, $options->{$opt} ); |
$self->_path_to( $opt, $options->{$opt} ); |
} |
} |
else { |
else { |
carp "Invalid option [$opt]"; |
#carp "Invalid option [$opt]"; |
} |
} |
} |
} |
} |
} |