File Coverage

blib/lib/Goo/DatabaseThing/Deleter.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	25	68.0

package Goo::DatabaseThing::Deleter;

###############################################################################
# Nigel Hamilton
#
# Copyright Nigel Hamilton 2005
# All Rights Reserved
#
# Author:       Nigel Hamilton
# Filename:     Goo::DatabaseThing::Deleter.pm
# Description:  Delete a row from a table
#
# Date          Change
# -----------------------------------------------------------------------------
# 16/10/2005    Auto generated file
# 16/10/2005    Need to create a Table
#
###############################################################################

use strict;

use Goo::Object;
use Goo::Prompter;
use base qw(Goo::Object);


###############################################################################
#
# run - edit a task
#
###############################################################################

sub run {

    my ($this, $thing) = @_;

    # grab the task
    my $dbo = $thing->get_database_object();

    if (Goo::Prompter::confirm("Delete " . $thing->get_filename())) {

        $dbo->delete();

		# need to go somewhere else now - back to the Zone
		$thing->do_action("Z");

    }

}

1;


__END__

=head1 NAME

Goo::DatabaseThing::Deleter - Delete a row from a database table

=head1 SYNOPSIS

use Goo::DatabaseThing::Deleter;

=head1 DESCRIPTION

=head1 METHODS

=over

=item run

edit a task


=back

=head1 AUTHOR

Nigel Hamilton <[e-mail]>

=head1 SEE ALSO