willert

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

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

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

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

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

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

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

willert

    my %args = %{ $self->interp_args || {} };
    if ( my $enc = $self->encoding ) {
        my $old_func = delete $args{ postprocess_text };
        $args{ postprocess_text } = sub{
            $old_func->( $_ ); $_ = $enc->decode( $_ );
        };
    }

    return $self->interp_class->new(
        %args

willert

package WuB::Schema::ResultSet;
use base qw/DBIx::Class::ResultSet/;

sub has_rows {
  my $self = shift;
  my @pk = $self->result_source->primary_columns;
  my $first_row = $self->search( undef, {
    select => \@pk,
    rows   => 1,
    order_by => \'1'

willert

Couldn't instantiate component "SiG::Model::Repository", "Couldn't load class (Exparse::Questionnaire::Storage::DBIC) because: The method '_process_options' was not found in the inheritance hierarchy for Class::MOP::Class::__ANON__::SERIAL::39 at /usr/local/lib/perl/5.10.1/Class/MOP/Class.pm line 659
	Class::MOP::Class::__ANON__('Moose::Meta::Class=HASH(0xb872450)', '_process_options') called at /usr/local/lib/perl/5.10.1/Class/MOP/Class.pm line 694
	Class::MOP::Class::add_after_method_modifier('Moose::Meta::Class=HASH(0xb872450)', '_process_options', 'CODE(0xa6b48b0)') called at /usr/local/lib/perl/5.10.1/Moose/Meta/Role/Application/ToClass.pm line 218
	Moose::Meta::Role::Application::ToClass::apply_method_modifiers('Moose::Meta::Role::Application::ToClass=HASH(0xa7df158)', 'after', 'Moose::Meta::Role=HASH(0xa6b1e08)', 'Moose::Meta::Class=HASH(0xb872450)') called at /usr/local/lib/perl/5.10.1/Moose/Meta/Role/Application.pm line 93
	Moose::Meta::Role::Application::apply_after_method_modifiers('Moose::Meta::Ro

willert

#!/usr/bin/perl

use strict;
use warnings;

use lib '/home/willert/Devel/exparse-interpreter/lib';
use lib '/home/willert/Devel/sig/lib';

use Gtk2 -init;
use Gtk2::WebKit;

willert

INSERT INTO
  H_ANLAGEN_2001 ( BVDEP_ID_NUMBER, PATENTE, GOODWILL, LAND, GEBAUDE, MASCHIENEN )
SELECT
  ASSETS.BVDEP_ID_NUMBER,
  ASSETS.INTANGIBLE_FIXED_ASSETS * 0.5,
  ASSETS.INTANGIBLE_FIXED_ASSETS * 0.5,
  (EXTRA.DEPRECIATION - (0.429 * ASSETS.TANGIBLE_FIXED_ASSETS)) / 0.461 * 2 / 3,
  (EXTRA.DEPRECIATION - (0.429 * ASSETS.TANGIBLE_FIXED_ASSETS)) / 0.461 * 1 / 3,
  ASSETS.TANGIBLE_FIXED_ASSETS -
      ((EXTRA.DEPRECIATION - (0.429 * ASSETS.TANGIBLE_FIXED_ASSETS)) / 0.461))