Opened by Peter Priess at 2011-09-13 12:21
Wow - cool, dann komme ich hier ja doch weiter. Jan, vielen Dank!!
Wenn ich aber nun den Beispielen in der Doku folge - und dies aber ein wenig abwandle, so scheint das leider nicht zu funktionieren - ich bekomme keinerlei Ausgabe (trotz "print 42;"):
Das Überladen des Accessors scheint nicht zu klappen?! Bzw. stellt sich mir die Frage, ob es überhaupt die richtige Methode ist, die ich da überlade??
Grüße, Peter
Last edited: 2011-09-14 17:01:48 +0200 (CEST)
Wenn ich aber nun den Beispielen in der Doku folge - und dies aber ein wenig abwandle, so scheint das leider nicht zu funktionieren - ich bekomme keinerlei Ausgabe (trotz "print 42;"):
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
package My::Main::Result::Artist;
use base qw/ DBIx::Class::Core /;
__PACKAGE__->table('artist');
__PACKAGE__->add_columns(qw/ artistid name /);
__PACKAGE__->set_primary_key('artistid');
__PACKAGE__->has_many( 'cds' => 'My::Main::Result::Cd' );
sub insert {
my ( $self, @args ) = @_;
$self->next::method(@args);
# $self->create_related ('cds', \%initial_cd_data );
print "42\n";
return $self;
}
1;
Code: (dl
)
1
2
3
4
5
6
#
my $schema = My::Main->connect('...');
my @artists = ( ['M_Jackson'], ['N_Jones'], ['Depeche Mode'], ['U2'] );
$schema->populate('Artist', [ [qw/name/], @artists, ]);
#
Das Überladen des Accessors scheint nicht zu klappen?! Bzw. stellt sich mir die Frage, ob es überhaupt die richtige Methode ist, die ich da überlade??
Grüße, Peter
Last edited: 2011-09-14 17:01:48 +0200 (CEST)