Re: [log4perl-devel] DBIC Object not interpreted (fwd)

[Mike S. <m...@pe...>]

Forwarding Steve's answer to the list ...

-- Mike

Mike Schilli
m...@pe...

---------- Forwarded message ----------
From: Steve <st...@ma...>
To: Mike Schilli <m...@pe...>
Subject: Re: [log4perl-devel] DBIC Object not interpreted
Date: Tue, 11 May 2010 08:15:17 -0400


On 5/11/2010 1:25 AM, Mike Schilli wrote:
       On Mon, 10 May 2010, Steve wrote:

             Where $newsub is an object, the following fails
             to work as I expected it to:
             $logger->info("Created sub->", $newsub->ptn);
             Since my log is a text file, this yields the
             following line in the file:
             2010/05/10 16:38:59 INFO> cmsIMsubs-S.pl:176
             main::getSubs - Created
             sub->CMS::Schema::Result::Subscription=HASH(0x96b9164)->ptn
             In case it's not obvious, I'd like to log the
             phone number, not what type of object I'm looking
             at.


       I doubt this is related to Log4perl, I bet you'll get the
       same result
       with print(). Make sure that your ptn() method does the right
       thing when
       called in list (!) context.

I'm not quite sure why, but changing the double quotes around the
"Created sub->" to single quotes had the desired
effect?  Also, $newsub->ptn is an accessor method for DBIx::Class::Row
that should return the value of that particular
column, as it now does.

Thanks for the response!

       Here's some code to show that it works as expected:

           use strict;

           package Wobble;
           sub new { bless {}, shift; }
           sub ptn { return "wobble!" }

           package main;
           use Log::Log4perl qw(:levels get_logger);
           Log::Log4perl->easy_init($DEBUG);

           my $logger = get_logger();

           my $wobble = Wobble->new();
           $logger->info("return of ptn: ", $wobble->ptn());


       -- Mike

       Mike Schilli
       m...@pe...

  No virus found in this incoming message.
Checked by AVG - www.avg.com 
Version: 9.0.819 / Virus Database: 271.1.1/2866 - Release Date: 05/10/10 14:26:00