view release on metacpan or  search on metacpan

lib/Goo/CareOMeter.pm  view on Meta::CPAN

sub get_bugs_table {

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

    my $query = Goo::Database::execute_sql(<<EOSQL);
		
		select 		title, bugid, importance, 
					date_format(foundon, '%d %b %Y') as 'foundon', 
					description
		from 		bug
		where		status = 'alive'
		order by 	importance desc, foundon desc 
		limit		$BUFFER_SIZE

EOSQL

    my $full_text = "";

    # set up the table
    my $table = Text::FormatTable->new('4l 60l 6l 11l 18l');

lib/Goo/Thing/bug/Lister.pm  view on Meta::CPAN

sub get_bugs_table {

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

    my $query = Goo::Database::execute_sql(<<EOSQL);
		
		select 		title, bugid, importance, 
					date_format(foundon, '%d %b %Y') as 'foundon', 
					description
		from 		bug
		where		status = 'alive'
		order by 	importance desc, foundon desc 
		limit		$BUFFER_SIZE

EOSQL

    my $full_text = "";

    # set up the table
    my $table = Text::FormatTable->new('4l 60l 6l 11l 18l');

lib/Goo/Thing/bug/Maker.pm  view on Meta::CPAN

    Goo::Prompter::say();

    my $query = Goo::Database::prepare_sql(<<EOSQL);

	insert 	into bug (	title,
						description,
						foundby,
						importance,
						status,
						foundon)
	values			  (?, ?, ?, ?, 'alive', now())

EOSQL

    Goo::Database::bind_param($query, 1, Goo::Prompter::insist("Enter a new bug?"));
    Goo::Database::bind_param($query, 2,
                              Goo::Prompter::ask("Bug description (how/when/where/why)?"));

    my $found_by = Goo::Prompter::pick_one("Found by?", Goo::TeamManager::get_all_nick_names());

    Goo::Database::bind_param($query, 3, $found_by);