Re: [Catalyst] Subclass $c-log-debug(...) to prepend ${\$c-action}: ...

2010-01-18 Thread Jason Galea 
not as simple as I thought. I'd be interested to know if there's an easier
way..

package MyApp;

use MyApp::Catalyst::Log;

__PACKAGE__-setup;

__PACKAGE__-log( MyApp::Catalyst::Log-new );

around 'log' = sub{
  my $orig = shift;
  my $self = shift;
  return $self-$orig if @_;
  my $log = $self-$orig;
  $log-action($self-action) if blessed $self  $self-action;
  return $log;
};

package MyApp::Catalyst::Log;
use Moose;
extends 'Catalyst::Log';

has 'action' = ( isa = 'Object', is = 'rw' );

around 'debug' = sub{
  my $orig = shift;
  my $self = shift;
  $_[0] = $self-action.: .$_[0];
  return $self-$orig(@_);
};

1;

cheers,

J

On Tue, Jan 19, 2010 at 6:22 AM, Kiffin Gish kiffin.g...@planet.nl wrote:

 I'd like to subclass $c-log-debug(message) so that it prints out:

 ''.$c-action.': '.'message'

 What's the easiest way to do this?

 --
 Kiffin Gish kiffin.g...@planet.nl
 Gouda, The Netherlands



 ___
 List: Catalyst@lists.scsys.co.uk
 Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
 Searchable archive:
 http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
 Dev site: http://dev.catalyst.perl.org/




-- 
Jason Galea
Web Developer

Ph 07 40556926
Mob 04 12345 534
www.eightdegrees.com.au
___
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Re: [Catalyst] Subclass $c-log-debug(...) to prepend ${\$c-action}: ...

2010-01-18 Thread J. Shirley 
On Mon, Jan 18, 2010 at 12:22 PM, Kiffin Gish kiffin.g...@planet.nl wrote:
 I'd like to subclass $c-log-debug(message) so that it prints out:

 ''.$c-action.': '.'message'

 What's the easiest way to do this?


Easiest is to just switch to Catalyst::Log::Log4perl, since it will do
what you want out of the box.

Something like this in your log4perl.conf would work:
log4perl.rootLogger=DEBUG, SCREEN

log4perl.appender.SCREEN = Log::Log4perl::Appender
log4perl.appender.SCREEN.stderr = 1
log4perl.appender.SCREEN.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.SCREEN.layout.ConversionPattern = %d %p [%c : %L] %m%n

That will give you a log like:
2010/01/12 13:54:40 DEBUG [Catalyst.View.TT : 1881] Rendering template foo.tt

-J

___
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/