Parent Directory
| 
Revision Log
| 
Patch
| revision 569 by dpavlin, Thu Nov 27 22:10:49 2008 UTC | revision 610 by dpavlin, Fri Nov 28 23:32:52 2008 UTC | |
|---|---|---|
| # | Line 51 sub session_dump { | Line 51 sub session_dump { |
| 51 | return $data; | return $data; |
| 52 | } | } |
| 53 | ||
| 54 | =head2 TODO | |
| 55 | ||
| 56 | my $TODO = $self->TODO( "message" ); | |
| 57 | ||
| 58 | =cut | |
| 59 | ||
| 60 | sub TODO { | sub TODO { |
| 61 | my ( $self, $what ) = @_; | my ( $self, $what ) = @_; |
| 62 | eval { | eval { |
| # | Line 67 sub TODO { | Line 73 sub TODO { |
| 73 | } | } |
| 74 | }; | }; |
| 75 | warn "TODO ERROR: $@\n$what" if $@; | warn "TODO ERROR: $@\n$what" if $@; |
| 76 | return $what; | |
| 77 | } | } |
| 78 | ||
| 79 | 1; | 1; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |