/usr/local/CPAN/TripleStore/TripleStore/Mixin/Class.pm

• package TripleStore::Mixin::Class
  • class
• __END__
• EOF

# -------------------------------------------------------------------------------------
# TripleStore::Mixin::Class
# -------------------------------------------------------------------------------------
#
#       Author : Jean-Michel Hiver (jhiver@mkdoc.com).
#      Version : $Id: Class.pm,v 1.1.1.1 2003/01/13 18:20:40 jhiver Exp $
#
#    Description:
#
#      A simple mixin which provides a class() method which returns the class
#      of an object.
#
# -------------------------------------------------------------------------------------
package TripleStore::Mixin::Class;
use strict;
use warnings;
use Carp;


sub class
{
    my $class = shift;
    $class = ref $class || $class;
    return $class;
}


1;


__END__