Select Code to Download

use strict;

...
  my $hash_ref = shift;
  return $hash_ref->{approved};
}

package Quote;

...
}

1;

use strict;
use Quote;
...
print STDOUT (Quote::is_approved() ? "Is approved" : "Is not approved"
+), "\n";

exit 0;

Foo
Bar
Is approved

package Quote;

...
}

1;

use strict;
use Quote;
...
print STDOUT ($quote->is_approved() ? "Is approved" : "Is not approved
+"), "\n";

exit 0;

Baz
Foo
Is not approved

sub new {
        my $class = shift;
...
        print STDOUT "Object ", $self, " is of class ", ref($self), "\
+n";
        return $self;
}

HASH
Object Quote=HASH(0x804b514) is of class Quote
Baz
Foo
Is not approved

sub set_phrase {
        my $self = shift;
...
        my $phrase = shift;
        $self->{phrase} = $phrase;
}

Object Quote=HASH(0x804b514) is of class Quote

use strict;
use Quote;
...
print STDOUT $quote2->get_author(), " wrote ", $quote2->get_phrase(), 
+"\n";

exit 0;

Some other author wrote Baz
Foo wrote Some other phrase

sub set_phrase {
        my $self = shift;
...
        my $self = shift;
        return $self->{invalid_message};
}

sub set_phrase {
        my $self = shift;
...
        }
        $self->{author} = $author;
}

package Saver;

...

1;

use strict;
use Quote;
...

print STDOUT "Exiting\n";
exit 0;

Exiting
Closing file

sub serialize {
  my $self = shift;
...
  $text .= $quote->get_phrase();
  return $text;
}

sub save {
        my $self = shift;
...
        }
        print {$self->{fh}} $self->serialize($quote) . "\n";
}

$saver->save($quote2);
$saver->save($quote1);

package Saver::Database;

...
        &_close();
        return;
}

my $saver  = Saver::File->new($file);

my $saver  = Saver::Database->new($db, $user, $pass);

sub phrase {
  my $self = shift;
  @_ ? $self->{phrase} = shift : $self->{phrase};
}

$quote->Set(phrase=>$phrase,author=>$author);

eval {
  $object->method($foo)
...
if (@$) {
  ... handle error ...
}