willert

  has partner_class => (
    is => 'ro',
    isa => ClassName,
    default => 'WeCARE::Partner::Repository::Partner',
  );

  has _partner_conf => (
    is            => 'ro',
    isa           => HashRef[HashRef],
    init_arg      => 'partner',

willert

Old style:

 final action do_login as 'einloggen' {
   my ( $system, $partner ) = @{$ctx->stash}{qw/ system partner /};
   [...]

New style:

 final action do_login( :$system, $partner ) as 'einloggen' {

willert

Summary of my perl5 (revision 5 version 10 subversion 0) configuration:
  Platform:
    osname=linux, osvers=2.6.24-23-server, archname=i486-linux-gnu-thread-multi
    uname='linux rothera 2.6.24-23-server #1 smp wed apr 1 22:22:14 utc 2009 i686 gnulinux '
    config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=i486-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.10 -Darchlib=/usr/lib/perl/5.10 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.10.0 -Dsitearch=/usr/local/lib/perl/5.10.0 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Ud_ualarm -Uusesfio -Uusenm -DDEBUGGING=-g -Doptimize=-O2 -Duseshrplib -Dlibperl=libperl.so.5.10.0 -Dd_dosuid -des'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemul

willert

Program received signal SIGSEGV, Segmentation fault.
[Switching to Thread 0xb7d878d0 (LWP 8586)]
0x08076f9e in Perl_pad_swipe ()
(gdb) bt
#0  0x08076f9e in Perl_pad_swipe ()
#1  0x08067775 in Perl_op_clear ()
#2  0x080658e6 in Perl_op_free ()
#3  0x0806591a in Perl_op_free ()
#4  0x0806591a in Perl_op_free ()
#5  0x0806591a in Perl_op_free ()

willert

sub product_name {
  my $self = shift;
  return $self->product->base_product;
}

sub variant_product {
  my $self = shift;
  return $self->product->modification;
}