cd lib ; dbicdump -o debug=1 -o components='[qw(Helper::Row::ToJSON InflateColumn::Serializer InflateColumn::DateTime Helper::ResultSet::SetOperations)]' MySchema::Master 'dbi:mysql:dbname=mydb' root ; cd ..
####
Agent(3) User Contributed Perl Documentation Agent(3)
NAME
MySchema::Master::Result::Agent
COMPONENTS LOADED
· DBIx::Class::Helper::Row::ToJSON
· DBIx::Class::InflateColumn::Serializer
· DBIx::Class::InflateColumn::DateTime
· DBIx::Class::Helper::ResultSet::SetOperations
TABLE: "agent"
ACCESSORS
id
data_type: 'integer'
extra: {unsigned => 1}
is_auto_increment: 1
is_nullable: 0
profilo
data_type: 'enum'
default_value: 'Manutentore'
extra: {list => ["Manutentore","Amministrativo","Admin","AdminExt","Superadmin","Ente","AmExt","Ispettore"]}
is_nullable: 1
id_appalto
data_type: 'integer'
extra: {unsigned => 1}
is_nullable: 1
user
data_type: 'varchar'
is_nullable: 1
size: 15
pass
data_type: 'varchar'
is_nullable: 0
size: 255
disabled
data_type: 'tinyint'
default_value: 0
is_nullable: 1
note
data_type: 'text'
is_nullable: 1
creation
data_type: 'timestamp'
datetime_undef_if_invalid: 1
default_value: '0000-00-00 00:00:00'
is_nullable: 0
last_login
data_type: 'datetime'
datetime_undef_if_invalid: 1
is_nullable: 1
ts
data_type: 'timestamp'
datetime_undef_if_invalid: 1
default_value: current_timestamp
is_nullable: 0
PRIMARY KEY
· "id"
UNIQUE CONSTRAINTS
"idx_user"
· "user"
RELATIONS
controlloes
Type: has_many
Related object: MySchema::Master::Result::Controllo
ispeziones
Type: has_many
Related object: MySchema::Master::Result::Ispezione
perl v5.18.2 2015-05-26 Agent(3)
##
##
...
sub master () {
$Master ||= MySchema::Master->connect;
return $Master;
}
...
##
##
return $agent;
##
##
return $agent->get_columns;
##
##
return $agent->profilo
##
##
$agent->update({ last_login => \ " NOW()" });