Guest
Public paste!

Zoffix

By: a guest | Mar 22nd, 2008 | Syntax: Perl | Size: 0.26 KB | Hits: 676 | Expires: Never
Copy text to clipboard
  1. sub error {
  2.     my $self = shift;
  3.     if ( @_ ) {
  4.         $self->{ ERROR } = shift;
  5.     }
  6.     return $self->{ ERROR };
  7. }
  8.  
  9. sub content {
  10.     my $self = shift;
  11.     if ( @_ ) {
  12.         $self->{ CONTENT } = shift;
  13.     }
  14.     return $self->{ CONTENT };
  15. }