todotxt/Text-Todo/bin/todo.pl - diff

Return to todo.pl CVS log

Up to [local] / todotxt / Text-Todo / bin

version 1.19, 2010/01/21 21:10:38

version 1.22, 2010/02/16 01:13:12

Line 1

#!/usr/bin/perl

# $AFresh1: todo.pl,v 1.18 2010/01/19 18:53:36 andrew Exp $

# $AFresh1: todo.pl,v 1.21 2010/02/03 18:14:01 andrew Exp $

########################################################################

# todo.pl *** a perl version of todo.sh. Uses Text::Todo.

Line 16

use Getopt::Std;

use Text::Todo;

use version; our $VERSION = qv('0.1.0');

use version; our $VERSION = qv('0.1.2');

# option defaults

my $config_file = $ENV{HOME} . '/todo.cfg';

Line 109

my $entry = join q{ }, @entry;

my $todo = Text::Todo->new($config);

if ( $todo->add($entry) ) {

if ( $todo->add($entry) && $todo->save ) {

my @list = $todo->list;

my $lines = scalar @list;