Skip Menu |
 

This queue is for tickets about the Pod-Coverage CPAN distribution.

Report information
The Basics
Id: 77329
Status: open
Priority: 0/
Queue: Pod-Coverage

People
Owner: Nobody in particular
Requestors: Duncan.Garland [...] motortrak.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: FW: Moose override method
Date: Mon, 21 May 2012 16:12:31 +0100
To: "bug-Pod-Coverage [...] rt.cpan.org" <bug-Pod-Coverage [...] rt.cpan.org>
From: Duncan Garland <Duncan.Garland [...] motortrak.com>
Download (untitled) / with headers
text/plain 1.8k
It doesn't recognise the Moose override method: Eg override( 'get_labour_rate', sub { my ( $self, $labour_rates, $ess ) = validate_pos( @_, 1, { type => ARRAYREF }, { type => HASHREF } ); my $hourly_rate = 0; $self->logger->debug( "Corporate: get_ess_labour_rate: " . Dumper( $self->temp_quote->{corporate_discounts} ) ); my $discounts = $self->temp_quote->{corporate_discounts}; if ( !$discounts->{parts_labour_rate} ) { $hourly_rate = super( $labour_rates, $ess ); } else { $self->logger->debug("1. $ess->{rate}"); next if $ess->{rate} =~ m/[S]$/i; $self->logger->debug("2. $ess->{rate}"); $hourly_rate = $discounts->{parts_labour_rate}; ( $ess->{rate} ) = $discounts->{parts_labour_rate_type} =~ m/^.*(.)$/; $self->logger->debug("2. $ess->{rate} : $hourly_rate"); } return $hourly_rate; } ); From: Duncan Garland Sent: 21 May 2012 16:10 To: 'bug-Pod-Coverage@rt.cpan.org.' Subject: Moose override method It doesn't recognise the Moose override method: Eg override( 'get_labour_rate', sub { my ( $self, $labour_rates, $ess ) = validate_pos( @_, 1, { type => ARRAYREF }, { type => HASHREF } ); my $hourly_rate = 0; $self->logger->debug( "Corporate: get_ess_labour_rate: " . Dumper( $self->temp_quote->{corporate_discounts} ) ); my $discounts = $self->temp_quote->{corporate_discounts}; if ( !$discounts->{parts_labour_rate} ) { $hourly_rate = super( $labour_rates, $ess ); } else { $self->logger->debug("1. $ess->{rate}"); next if $ess->{rate} =~ m/[S]$/i; $self->logger->debug("2. $ess->{rate}"); $hourly_rate = $discounts->{parts_labour_rate}; ( $ess->{rate} ) = $discounts->{parts_labour_rate_type} =~ m/^.*(.)$/; $self->logger->debug("2. $ess->{rate} : $hourly_rate"); } return $hourly_rate; } );
Download (untitled) / with headers
text/plain 158b
On 2012-05-21 08:12:45, Duncan.Garland@motortrak.com wrote: Show quoted text
> It doesn't recognise the Moose override method:
You probably want Pod::Coverage::Moose instead.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.