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

Report information
The Basics
Id:
77329
Status:
open
Priority:
Low/Low
Queue:

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

BugTracker
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>

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;

  }

);

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 runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

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