This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
sub product_name { | |
my $self = shift; | |
return $self->product->base_product; | |
} | |
sub variant_product { | |
my $self = shift; | |
return $self->product->modification; | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 () |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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' { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
has partner_class => ( | |
is => 'ro', | |
isa => ClassName, | |
default => 'WeCARE::Partner::Repository::Partner', | |
); | |
has _partner_conf => ( | |
is => 'ro', | |
isa => HashRef[HashRef], | |
init_arg => 'partner', |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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)) |
OlderNewer