File Coverage

blib/lib/App/TodoList.pm

Criterion	Covered	Total	%
statement	55	55	100.0
branch	9	12	75.0
condition	5	9	55.5
subroutine	12	12	100.0
pod	0	5	0.0
total	81	93	87.1

package App::TodoList;

use strict;
use warnings;

use JSON;
use File::HomeDir;
use File::Spec;

our $VERSION = '1.0.0';

sub new {
    my ($class, %args) = @_;

    my $home_dir = File::HomeDir->my_home;
    my $file = File::Spec->catfile($home_dir, '.tasks.json');

    my $self = {
        file  => $args{file} || $file,
        tasks => [],
    };

    bless $self, $class;

    $self->_load_tasks();
    return $self;
}

sub add_task {
    my ($self, $task) = @_;
    push @{ $self->{tasks} }, { task => $task, completed => 0 };
    $self->_save_tasks();
    return scalar @{ $self->{tasks} };
}

sub list_tasks {
    my ($self) = @_;
    return @{ $self->{tasks} };
}

sub complete_task {
    my ($self, $index) = @_;
    return 0 if $index < 1 || $index > scalar @{ $self->{tasks} };
    $self->{tasks}->[$index - 1]->{completed} = 1;
    $self->_save_tasks();
    return 1;
}

sub delete_task {
    my ($self, $index) = @_;
    return 0 if $index < 1 || $index > scalar @{ $self->{tasks} };
    splice @{ $self->{tasks} }, $index - 1, 1;
    $self->_save_tasks();
    return 1;
}

sub _load_tasks {
    my ($self) = @_;
    if (-e $self->{file}) {
        open my $fh, '<', $self->{file} or die "Could not open file '$self->{file}': $!";
        local $/;
        my $json = <$fh>;
        close $fh;
        $self->{tasks} = decode_json($json) if $json;
    }
}

sub _save_tasks {
    my ($self) = @_;
    open my $fh, '>', $self->{file} or die "Could not open file '$self->{file}': $!";
    print $fh encode_json($self->{tasks});
    close $fh;
}

1;
__END__