CRUD mit DBIx::Class etc. - erweiterbar?? (Datenbanken und Verzeichnisdienste)

[thread]16720[/thread]

CRUD mit DBIx::Class etc. - erweiterbar??

Tags: perl5 crud Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+4 replies
Gast Peter Priess

2011-09-13 12:21

Seid gegrüßt,

für ein relativ großes Projekt will ich mich nun endlich mal auf eine sicherere Seite begeben und mit CRUD-Objekten arbeiten. Mit Hilfe von DBIx::Class::Manual::Intro etc. habe ich auch schon ein funktionierendes Beispiel...
Nun aber zu meiner Frage - im Prinzip brauche ich eine Erweiterung der Klasse, so dass bspw. "wenn die Summe bestimmter Felder für eine ID X übersteigt, so führe eine Funktion sowieso() aus", ein Hook, ein Callback?!

Geht das mit DBIx::Class - oder sollte ich da lieber einen ganz anderen Ansatz mit ganz anderen Objekten wählen?? Oder kann mit jmd. von Euch einen Code-Schnipsel bereit stellen??!

Danke für Eure Hinweise, Peter
Last edited: 2011-09-13 12:24:20 +0200 (CEST)
- +3 replies
- jan
  
  2011-09-13 19:20
  
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  
  Ja, das geht.
  Du kannst jeden Accessor überschreiben und dabei bestimmte Dinge tun.
  Du kannst auch vor dem Speichern irgendwas ausführen und ggf Felder auf bestimmte Werte setzen.
  
  Ich arbeite inzwischen viel mit DBIx::Class. Bin zwar immer noch mal am nachschauen in der Dokumentation, aber hatte bisher noch keinen Fall, wo es keine Lösung gab.
  
  Der Teil im CookBook http://search.cpan.org/~abraxxa/DBIx-Class-0.08195...
  könnte für dich das richtige sein.
  - +2 replies
  - Gast Peter
    
    2011-09-14 16:46
    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;"):
    
    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)
    - jan
      
      2011-09-14 17:38
      
      User since
      2003-08-04
      2536 Artikel
      ModeratorIn
      
      Das ist die richtige Methode, wenn Du das nur beim INSERT aber nicht bei UPDATE ausführen lassen willst. Oder Naja, es gibt da wohl viele Möglichkeiten, aber insert finde ich sinnvoll, man könnte aber wohl auch weiter unten in der Storage Engine eingreifen.
      
      Und Du hast vollkommen recht: das Beispiel aus der Doku klappt so nicht. Das liegt aber daran, wie die Daten eingefügt werden, nämlich mit $schema->populate();
      
      Quote
      In void context, insert_bulk in DBIx::Class::Storage::DBI is used to insert the data, as this is a fast method. However, insert_bulk currently assumes that your datasets all contain the same type of values, using scalar references in a column in one row, and not in another will probably not work.
      
      Otherwise, each set of data is inserted into the database using "create" in DBIx::Class::ResultSet, and a arrayref of the resulting row objects is returned.
      
      d.h. es wird überhaupt nicht mit der Klasse gearbeitet beim Anlegen, weil der Call ja
      
      Code: (dl )
      
      1 2 3 4
      
      $schema->populate('Artist', [ [qw/name/], @artists, ]);
      
      ist.
      
      Wenn Du
      
      Code: (dl )
      
      1 2 3 4
      
      my $test = $schema->populate('Artist', [ [qw/name/], @artists, ]);
      
      daraus machst, klappt das genau wie man es erwartet.
      Oder eben, ganz manuell (finde ich immer schöner, weil klarer ist, was passiert):
      
      Code: (dl )
      
      my $newartist = $schema->resultset('Artist')->create({});

View all threads created 2011-09-13 12:21.