package CMethods; use strict; our @ISA = qw(); our $VERSION = '0.01'; require XSLoader; XSLoader::load('CMethods', $VERSION); sub new { my ($pckg, $x, $y) = @_; my $self = { x => $x, y => $y }; return bless $self, $pckg; } 1;