MooseX::Types - Problem mit Subtype und Where-Test (Fragen zu Perl-Modulen)

[thread]15480[/thread]

MooseX::Types - Problem mit Subtype und Where-Test

Leser: 16

Articles: hide open all | hide show old branches

+9 replies
roooot

2010-09-22 22:18
User since
2008-03-03
276 Artikel
BenutzerIn
Hallo Leute
ich versuche mir mithilfe von MooseX::Types eigene Subtypes für Moose zu bauen.
Sieht eigentlich ganz einfach aus, allerdings schlägt bei mir IMMER der Typentest fehl.

So sieht meine Klasse mit den Subtypen aus:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

package PIMYGC::Types::Library; use MooseX::Types -declare => [ qw( GoogleUrlId ) ]; use MooseX::Types::Moose qw/HashRef Str/; subtype GoogleUrlId, as HashRef[Str], where { $_ =~ m/\/([0-9a-z]+)$/xms }; coerce GoogleUrlId, from Str, via { my ($id) = $_ =~ m/\/([0-9a-z]+)$/xms; { full => $_, id => $id, } };
Das ganze soll nun aus einem Googlelink der Form
Code: (dl )

http://www.google.com/m8/feeds/contacts/email%40gmail.com/full/6578ac42881547eb
folgendes machen.
Eine GoogleUrlId sieht wie folgt aus:
Ein Hash mit den Schlüsseln Full, welche den kompletten Link oben entählt und ein Schlüssel ID, welcher nur die ID am Schluss enthält. Dem Konstruktur wird allerdings nur der komplette Link als String übergeben.
Mithilfe von coerce geschieht die Umwandlung und mithilfe des Subtypes wird dieser auf Gültigkeit geprüft.
Allerdings schlägt obiges für:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

package PIMYGC::Foo; use Moose; #... use PIMYGC::Types::Library qw /GoogleUrlId/; has 'gcid' => ( is => 'rw', isa => GoogleUrlId, required => 1 );
Code (perl): (dl )

1 2

new PIMYGC::Foo( gcid => 'http://www.google.com/m8/feeds/contacts/email%40gmail.com/full/6578ac42881547eb'
immer mit folgender Fehlermeldung fehl:
Code: (dl )

1 2

Attribute (gcid) does not pass the type constraint because: Validation failed for 'PIMYGC::Types::Library::GoogleUrlId' with value http://www.google.com/m8/feeds/contacts/email%40gmail.com/full/6578ac42881547eb at /var/www/foobar.de/cgi-bin/experiments/googlecontacts/lib/Controller/Test.pm line 47 Controller::Test::load('Controller::Test=HASH(0xc88390)') called at /var/www/foobar.de/cgi-bin/experiments/googlecontacts/core.pl line 51
Kann mir vielleicht jemand auf die Sprünge helfen? Der Regex im where stimmt und würde auch das richtige extrahieren.

Danke für Hilfe.
Viele Grüße :)
- +2 replies
- roooot
  
  2010-09-22 22:48
  
  User since
  2008-03-03
  276 Artikel
  BenutzerIn
  
  Habe vergessen in der Attributdefinition coerce zu erzwingen.
  Viele Grüße :)
  - MatthiasW
    
    2010-09-22 22:58
    User since
    2008-01-27
    367 Artikel
    BenutzerIn
    
    Im where hat sich auch noch ein kleiner Fehler eingeschlichen:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    subtype GoogleUrlId, as HashRef[Str], # where { $_ =~ m/\/([0-9a-z]+)$/xms }; where { $_->{full} =~ m/\/([0-9a-z]+)$/xms };
    
    MfG
    perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
- +4 replies
- roooot
  
  2010-09-23 01:02
  User since
  2008-03-03
  276 Artikel
  BenutzerIn
  Ich hänge mich mal an, weil ich ein weiteres Problem hierbei habe.
  
  Ich möchte folgende Datenstruktur umwandeln:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  [ bless( { 'value' => 'mail@gmail.com', 'primary' => 1, 'type' => bless( { 'uri' => 'http://schemas.google.com/g/2005#other' }, 'WWW::Google::Contacts::Type::Rel' ) }, 'WWW::Google::Contacts::Type::Email' ) ]
  
  Er soll mir nun die erste primary Email heraussuchen. Folgender Map macht das zuverlässig:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  my @primary = map { if ($_->{primary} == 1) { $_->{value} } } @$_; return $primary[0];
  
  Allerdings braucht man, wenn man coerce benutzen will auch immer den Zustand der Ursprungsdatenstruktur. In meinem Fall ist das eine
  ArrayRef
  -> Ref auf WWW::Google::Contacts::Type::Email
  -> HashRef
  -> Strings
  
  Wie bringe ich das jetzt im coerce unter?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  # GooglePrimaryEmail subtype GooglePrimaryEmail, as EmailAddress, where { $_ }, message { 'validation failed for: '. Dumper $_; }; coerce GooglePrimaryEmail, from ArrayRef[HashRef[Str]], via { my @primary = map { if ($_->{primary} == 1) { $_->{value} } } @$_; return $primary[0]; };
  
  Es müsste irgendwie so aussehen: ArrayRef[WWW::Google::Contacts::Type::Email[HashRef[Str]]]
  Das wirft aber -- oh Wunder -- einen Fehler, dass er WWW::Google::Contacts::Type::Email nicht parametisieren kann.
  
  Wo liegt der Hund begraben?
  Viele Grüße :)
  - +3 replies
  - MatthiasW
    
    2010-09-23 10:59
    User since
    2008-01-27
    367 Artikel
    BenutzerIn
    
    Quote
    In meinem Fall ist das eine
    ArrayRef
    -> Ref auf WWW::Google::Contacts::Type::Email
    -> HashRef
    -> Strings
    Nunja, ein WWW::Google::Contacts::Type::Email Objekt ist eine "gesegnete" Hash-Referenz. Außerdem sind nicht nur Strings hinter den Schlüsseln gespeichert.
    
    Quote
    Allerdings braucht man, wenn man coerce benutzen will auch immer den Zustand der Ursprungsdatenstruktur.
    Die gesamte Struktur muss nicht anagegeben werden. In deinem Fall würde ich from => ArrayRef[WWW::Google::Contacts::Type::Email] verwenden. Ansonsten würde dort auch ArrayRef, oder Ref, oder Defined, oder ... ausreichen.
    
    Darüber hinaus würde ich das via umschreiben:
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    via => { my $p = (grep { $_->{primary} } @$_)[0]; $p = {%$p}; # macht aus $p eine normale HashRef return $p; }
    
    Habe den Code allerdings nicht mit subtype GooglePrimaryEmail, as EmailAddress sondern mit subtype GooglePrimaryEmail, as HashRef getestet.
    
    MfG
    perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - +2 replies
    - roooot
      
      2010-09-23 13:32
      
      User since
      2008-03-03
      276 Artikel
      BenutzerIn
      
      Danke Matthias.
      Das mit ArrayRef[WWW::Google::Contacts::Type::Email] will nicht ganz, weil er mir verbietet WWW::Google::Contacts::Type::Email einzubinden.
      Ich denke ich muss den Typ erst bei Moose bekanntmachen, ähnlich wie die Standard Typen ja mit use MooseX::Types::Moose qw/ArrayRef HashRef Str/; eingebunden werden. Ich erstelle mir also eine neuen Typen und binde diesen dann ein?
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
      
      # WWWGoogleContactsTypeEmail class_type WWWGoogleContactsTypeEmail, { class => 'WWW::Google::Contacts::Type::Email', }; # GooglePrimaryEmail subtype GooglePrimaryEmail, as EmailAddress, message { 'validation failed for: '. Dumper $_; }; coerce GooglePrimaryEmail, from ArrayRef[WWWGoogleContactsTypeEmail], via { my $p = (grep { $_->{primary} } @$_)[0]; $p = $p ? $p->{value} : @$_->[0]{value}; # no prim email -> take first address return $p; };
      
      tuts dann auch.
      Viele Grüße :)
      - MatthiasW
        
        2010-09-23 18:12
        
        User since
        2008-01-27
        367 Artikel
        BenutzerIn
        
        Du kannst es auch in Anführungszeichen setzen:
        
        Code (perl): (dl )
        
        from => ArrayRef['WWW::Google::Contacts::Type::Email'],
        
        oder dir eine eigene Konstante erstellen: (wenn es die Subroutine nicht schon in WWW::Google::Contacts::Type gibt)
        
        Code (perl): (dl )
        
        sub WWW::Google::Contacts::Type::Email () { 'WWW::Google::Contacts::Type::Email' }
        
        MfG
        perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
- +2 replies
- roooot
  
  2010-09-23 13:50
  User since
  2008-03-03
  276 Artikel
  BenutzerIn
  Nächste Frage zum Thema Moose, Attributen usw.
  
  Ich schreibe meine Klassen mithilfe von MooseX::Declare, weil ich den Syntax einfach mag.
  Allerdings habe ich jetzt das Problem, dass wenn ich ein Attribut mit undef initialisiere er denkt, dieses undef müsste nun die isa Anforderungen erfüllen. Das klappt natürlich nicht.
  Das Problem ist bekannt und es gibt auch ein Modul, dass diese "Schwierigkeit" beseitigt: MooseX::UndefTolerant.
  In Verbindung mit MooseX::Declare klappt das allerdings nicht, ich denke es liegt einfach daran, dass der BUILD Ablauf bei MooseX::Declare einfach komplett anders funktioniert.
  
  MooseX::UndefTolerant schaltet sich um die initialize_instance_slot Funktion wie folgt:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  around('initialize_instance_slot', sub { my $orig = shift; my $self = shift; my $ia = $self->init_arg; # $_[2] is the hashref of options passed to the constructor. If our # parameter passed in was undef, pop it off the args... pop unless (exists($_[2]->{$ia}) && defined($_[2]->{$ia})); # Invoke the real init, as the above line cleared the unef $self->$orig(@_) });
  
  Er schaut einfach welche Attribute als undef initialisiert werden und löscht diese aus den Initialisierungsargumente.
  
  Bei MooseX::Declare finde ich allerdings weder die initialize_instance_slot Funktion noch weiß ich, wo die Argumente geparsed werden.
  Bin für irgendwelche Tipps dankbar.
  Last edited: 2010-09-23 13:51:41 +0200 (CEST)
  Viele Grüße :)
  - MatthiasW
    
    2010-09-23 18:21
    User since
    2008-01-27
    367 Artikel
    BenutzerIn
    
    Ich weiß nicht ob es hilft - kenne mich mit Moose nicht gerade gut aus - aber vielleicht kannst du Maybe[...] gebrauchen?
    
    Beispielsweise:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    use MooseX::Declare; class foo { has bar => (is => 'rw', isa => 'Maybe[Str]', ...); ... } # foo
    
    MfG
    perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'

View all threads created 2010-09-22 22:18.