package Conf;
use Moose;

has 'idx' => (is => 'ro', isa => 'Int');
has 'admin' => (is => 'rw', isa => 'Admin');

sub new {
  my ($class, $conf_num) = @_; 
  
  my $sth = $dbh->prepare("SELECT * FROM table WHERE idx = ?;");
  $sth->execute($conf_num);
  my $row = $sth->fetchrow_hashref;
  my $self = $class->SUPER::new(%$row);
  return $self;
}

package Admin;                 
use Moose;
                            
extends 'Conf';

has 'idx' => (is => 'ro', isa => 'Int');
has 'first_name' => (is => 'rw', isa => 'Str');
has 'last_name' => (is => 'rw', isa => 'Str');

package main;

my $conf = Conf->new(21);

Puck42 fucked around with this message at 19:00 on Aug 23, 2009

sub BUILDARGS {
  my ($class, $conf_num) = @_; 
  
  my $sth = $dbh->prepare("SELECT * FROM table WHERE idx = ?;");
  $sth->execute($conf_num);
  return $sth->fetchrow_hashref;
}

Single parameters to new() must be a HASH ref at /usr/share/perl5/Moose/Object.pm line 18
	Moose::Object::new('Conf', 21) called at ./m_test.pl line 64

Puck42 fucked around with this message at 01:48 on Aug 24, 2009

Blotto Skorzany fucked around with this message at 16:25 on Aug 26, 2009

eval {
  ### Do poo poo
}
if ($@) {
  ### Handle errors
}

eval {
  ### Do poo poo
} or do {
  ### Handle errors
}

eval {
  print "Doing poo poo... " if $debug;
  ### Do poo poo
  print "poo poo's done\n" if $debug;
} or do {
  ### Handle errors
}

eval {
  ### Do poo poo
  return 1;
} or do {
  ### Handle errors
}

Roseo fucked around with this message at 23:45 on Aug 27, 2009

Triple Tech fucked around with this message at 19:04 on Sep 14, 2009

Ninja Rope fucked around with this message at 07:02 on Sep 21, 2009