Commit | Line | Data |
---|---|---|
fc7ec1d9 | 1 | package Catalyst::Log; |
2 | ||
3 | use strict; | |
4 | use base 'Class::Accessor::Fast'; | |
9b2bc37b | 5 | use Data::Dumper; |
6 | ||
7 | $Data::Dumper::Terse = 1; | |
fc7ec1d9 | 8 | |
9 | =head1 NAME | |
10 | ||
11 | Catalyst::Log - Catalyst Log Class | |
12 | ||
13 | =head1 SYNOPSIS | |
14 | ||
15 | See L<Catalyst>. | |
16 | ||
17 | =head1 DESCRIPTION | |
18 | ||
19 | Simple logging functionality for Catalyst. | |
20 | ||
b22c6668 | 21 | =head1 METHODS |
fc7ec1d9 | 22 | |
b22c6668 | 23 | =over 4 |
fc7ec1d9 | 24 | |
b22c6668 | 25 | =item $c->debug($msg) |
26 | ||
27 | Logs a debugging message. | |
fc7ec1d9 | 28 | |
29 | =cut | |
30 | ||
31 | sub debug { _format( 'debug', $_[1] ) } | |
32 | ||
b22c6668 | 33 | =item $c->dump($ref) |
9b2bc37b | 34 | |
b22c6668 | 35 | Logs a formatted dump of a variable passed by reference (uses C<Data::Dumper>). |
9b2bc37b | 36 | |
37 | =cut | |
38 | ||
39 | sub dump { _format( 'dump', Dumper( $_[1] ) ) } | |
40 | ||
b22c6668 | 41 | =item $c->error($msg) |
fc7ec1d9 | 42 | |
b22c6668 | 43 | Logs an error message. |
fc7ec1d9 | 44 | |
45 | =cut | |
46 | ||
47 | sub error { _format( 'error', $_[1] ) } | |
48 | ||
b22c6668 | 49 | =item $c->info($msg) |
fc7ec1d9 | 50 | |
b22c6668 | 51 | Logs an informational message. |
fc7ec1d9 | 52 | |
53 | =cut | |
54 | ||
55 | sub info { _format( 'info', $_[1] ) } | |
56 | ||
b22c6668 | 57 | =item $c->warn($msg) |
fc7ec1d9 | 58 | |
b22c6668 | 59 | Logs a warning message. |
fc7ec1d9 | 60 | |
61 | =cut | |
62 | ||
63 | sub warn { _format( 'warn', $_[1] ) } | |
64 | ||
65 | sub _format { | |
66 | print STDERR '[' . localtime(time) . "] [catalyst] [$_[0]] $_[1]\n"; | |
67 | } | |
68 | ||
b22c6668 | 69 | =back |
70 | ||
fc7ec1d9 | 71 | =head1 SEE ALSO |
72 | ||
73 | L<Catalyst>. | |
74 | ||
75 | =head1 AUTHOR | |
76 | ||
77 | Sebastian Riedel, C<sri@cpan.org> | |
78 | ||
79 | =head1 COPYRIGHT | |
80 | ||
81 | This program is free software, you can redistribute it and/or modify it under | |
82 | the same terms as Perl itself. | |
83 | ||
84 | =cut | |
85 | ||
86 | 1; |