File Coverage

blib/lib/Goo/Thing/bug/Maker.pm
Criterion Covered Total %
statement 24 39 61.5
branch 0 2 0.0
condition 0 2 0.0
subroutine 8 9 88.8
pod 1 1 100.0
total 33 53 62.2


line stmt bran cond sub pod time code
1             package Goo::Thing::bug::Maker;
2              
3             ###############################################################################
4             # Turbo10.com
5             #
6             # Copyright Turbo10.com 2005
7             # All Rights Reserved
8             #
9             # Author: Nigel Hamilton
10             # Filename: Goo::Thing::bug::Maker.pm
11             # Description: What?? something that *makes* bugs!!
12             # Bugs are a software artefact too.
13             #
14             # Date Change
15             # -----------------------------------------------------------------------------
16             # 16/10/2005 Auto generated file
17             # 16/10/2005 Need to create a task object
18             #
19             ###############################################################################
20              
21 1     1   12769 use strict;
  1         3  
  1         44  
22              
23 1     1   7 use Goo::Object;
  1         3  
  1         20  
24 1     1   5 use Goo::Header;
  1         4  
  1         18  
25 1     1   4 use Goo::Prompter;
  1         2  
  1         19  
26 1     1   7 use Goo::Database;
  1         1  
  1         18  
27 1     1   4 use Goo::Prompter;
  1         2  
  1         16  
28 1     1   5 use Goo::TeamManager;
  1         2  
  1         24  
29              
30 1     1   5 use base qw(Goo::Object);
  1         3  
  1         303  
31              
32              
33             ###############################################################################
34             #
35             # run - make a bug_maker
36             #
37             ###############################################################################
38              
39             sub run {
40              
41 0     0 1   my ($this, $filename) = @_;
42              
43 0   0       $filename = $filename || "bug";
44              
45 0           Goo::Prompter::clear();
46              
47 0           Goo::Header::show("Bug Maker", $filename, "database");
48              
49 0           Goo::Prompter::say();
50              
51 0           my $query = Goo::Database::prepare_sql(<<EOSQL);
52              
53             insert into bug ( title,
54             description,
55             foundby,
56             importance,
57             status,
58             foundon)
59             values (?, ?, ?, ?, 'alive', now())
60              
61             EOSQL
62              
63 0           Goo::Database::bind_param($query, 1, Goo::Prompter::insist("Enter a new bug?"));
64 0           Goo::Database::bind_param($query, 2,
65             Goo::Prompter::ask("Bug description (how/when/where/why)?"));
66              
67 0           my $found_by = Goo::Prompter::pick_one("Found by?", Goo::TeamManager::get_all_nick_names());
68              
69 0           Goo::Database::bind_param($query, 3, $found_by);
70 0           Goo::Database::bind_param($query, 4, Goo::Prompter::ask("How important is this (1-10)?", 3));
71              
72             #my $company = Goo::Prompter::pick_one("which company?", qw(turbo trexy));
73             #Goo::Database::bind_param($query, 5, "");
74              
75             # what is the pain associated with this task???
76 0           Goo::Database::execute($query);
77              
78 0           Goo::Prompter::say("Bug recorded.");
79              
80 0 0         if (Goo::Prompter::confirm("Enter another bug?")) {
81 0           $this->run($filename);
82             }
83              
84             }
85              
86              
87             1;
88              
89              
90             __END__
91              
92             =head1 NAME
93              
94             Goo::Thing::bug::Maker - What?? something that *makes* bugs!!
95              
96             =head1 SYNOPSIS
97              
98             use Goo::Thing::bug::Maker;
99              
100             =head1 DESCRIPTION
101              
102              
103              
104             =head1 METHODS
105              
106             =over
107              
108             =item run
109              
110             make a bug_maker
111              
112              
113             =back
114              
115             =head1 AUTHOR
116              
117             Nigel Hamilton <nigel@trexy.com>
118              
119             =head1 SEE ALSO
120