Skip to content

Instantly share code, notes, and snippets.

@ranginui

ranginui/gist:1562444

Created January 4, 2012 22:09
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ranginui/1562444 to your computer and use it in GitHub Desktop.
Save ranginui/1562444 to your computer and use it in GitHub Desktop.
Download ZIP
Koha::Hugs
Raw
gistfile1.pl
package Koha::Hugs;
use strict;
use warnings;
use base qw(Class::Accessor);
__PACKAGE__->mk_accessors( qw(hug) );
sub new {
my $class = shift;
my $hugger = {};
$hugger->{hug}=1;
return bless $hugger;
}
=head1 NAME
Koha::Hugs - get some hugging
=head1 SYNOPSIS
use Koha::Hugs;
my $hugger = Koha::Hugs->new();
$hugger->hug();
=cut
1;
__END__
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment