return map { $_->servdef => $_->description } $self->load_all;

return map { $_->servdef => $_->description if ($_->enabled) } $self->load_all;

   foreach ($self->load_all) {
      if ($_->enabled) {
         $available_addons{$_->servdef} = $_->description;
      }
   }

   return %available_addons;

map { if ( $_->enabled ) { $_->servdef => $_->description } else {} } $self->load_all;

Beardless Woman fucked around with this message at 04:02 on Dec 17, 2008

Beardless Woman fucked around with this message at 12:12 on Dec 17, 2008

package Project::Models::Feature;
use Project::Model::ORM;

extends 'Project::Model::Table';

table 'dm.features';

field 'feature_id'  => (type => 'Int',  primary_key => 1);
field 'title'       => (type => 'Char', length      => 255, required => 1);
field 'slug'        => (type => 'Slug', from        => 'title');
field 'posted'      => (type => 'Datetime', auto_on_add => 1);
field 'description' => (type => 'Text', required    => 1);
field 'status'      => (type => 'Enum', choices => ['open', 'development', 'stage', 'live']);

field 'reporter_id' => ( type => 'ForeignKey', relates_to => 'Project::Models::User', on => 'user_id',  rel_name => 'reporter' );
field 'assigned_to' => ( type => 'ForeignKey', relates_to => 'Project::Models::User',  on => 'user_id', rel_name => 'developer');

# essentials
__PACKAGE__->meta->make_immutable;
1;

use aliased 'Project::Models::Feature' => 'Feature';

my $db = Project::Database->new($host, $username, $password);
my $feature = Feature->new(db => $db);
$feature->title('"Test" Feature!');
$feature->description('A test feature');
$feature->reporter_id(5);
$feature->assigned_to(2);
$feature->insert();

print $feature->feature_id; # prints mysql_insertid;
print $feature->slug;       # prints 'test-feature'

$feature->title('Still testing');
$feature->update(reporter_id => 4); # updates title and reporter_id

# handles relationships too:

$feature = Feature->new(db => $db, id => 1);
print $feature->reporter->display_name; 

# Project::Model::Class:

has 'db' =>
(
    is => 'rw',
    isa => 'Project::Database',
    lazy => 1,
    default => \&_buildDefaultDb
);

sub _buildDefaultDb
{
    my $namespace = ref $self;
    $namespace =~ s!::Model::.*$!::Config!;
    eval "use $namespace";
    my $config = eval "\$${namespace}::getInstance()";
    return Project::Database->new(config => $config);    
}

package Project::Model::Base;
use Moose;

extends 'Project::Model::Table';

__PACKAGE__->default_connection('host','username', 'password');

Div fucked around with this message at 12:52 on Dec 18, 2008

$r = (1 < 0) + 0;

sub a {
  if(1) { 0 }
  else { 1 }
}

a();  # numeric 0, not ''

s139252 fucked around with this message at 19:21 on Dec 19, 2008

# in Foo.pm
package Foo;
use AandB;

# in AandB.pm
package AandB;
use A;
use B;

package AandB;
use Exporter ();

sub import {
    # list modules and subs to import to caller
    my @MODULES = (
      [ 'A', qw/sub1 :all/ ],
      [ 'B', qw/foo bar/ ],
    );

    local $Exporter::ExportLevel = 1;
    foreach my $m (@MODULES) {
      Exporter::import(@{$m});
    }
}

BEGIN {
  require Foo;
  Foo->import();
}

s139252 fucked around with this message at 17:18 on Jan 2, 2009

leedo fucked around with this message at 20:34 on Jan 4, 2009

use Continuation::Escape;

my $result = call_cc {
    my $escape = shift;

    sub { $escape->("escaped!") }->();

    exit; # This code will never be reached!
};

# $result is "escaped!"

Filburt Shellbach fucked around with this message at 02:45 on Jan 13, 2009

sub product {
    my @factors = @_;

    call_cc {
        my $escape = shift;

        my $product = 1;
        for my $factor (@factors) {
            $escape->(0) if $factor == 0;
            $product *= $factor;
        }

        return $product;
    };
}

but until I realize why I needed them again, that's all I've got.

Filburt Shellbach fucked around with this message at 03:16 on Jan 13, 2009

sub call_cc (&)
{
        my $clause = shift;
        my @fake_returns;
        my $fake_continuation;
        $fake_continuation = sub {
                @fake_returns = @_;
                die $fake_continuation;
        };
        eval {
                return $clause->($fake_continuation);
        };
        if ($@)
        {
                die $@  unless $@ == $fake_continuation;
                return @fake_returns;
        }
}

biznatchio fucked around with this message at 19:38 on Jan 13, 2009