vcs.maemo.org Git - pkg-perl/blob - deb-src/libextutils-xspp-perl/libextutils-xspp-perl-0.07/examples/Object-WithIntAndString/lib/Object/WithIntAndString.pm

   1 package Object::WithIntAndString;
   2 use 5.006001;
   3 use strict;
   4 use warnings;
   5
   6 our $VERSION = '0.01';
   7
   8 require XSLoader;
   9 XSLoader::load('Object::WithIntAndString', $VERSION);
  10
  11 1;
  12 __END__
  13
  14 =head1 NAME
  15
  16 Object::WithIntAndString - A tiny C++ class example that holds a string and an int
  17
  18 =head1 SYNOPSIS
  19
  20   use Object::WithIntAndString;
  21   my $o = Object::WithIntAndString->new;
  22   $o->SetString("foo");
  23   print $o->GetString(), "\n";
  24   $o->SetInt(5);
  25   print $o->GetInt(), "\n";
  26
  27 =head1 DESCRIPTION
  28
  29 Simply an XS++ example!
  30
  31 =head1 AUTHOR
  32
  33 Steffen Mueller, E<lt>smueller@cpan.orgE<gt>
  34
  35 =head1 COPYRIGHT AND LICENSE
  36
  37 Copyright (C) 2009 by Steffen Mueller
  38
  39 This library is free software; you can redistribute it and/or modify
  40 it under the same terms as Perl itself, either Perl version 5.6.1 or,
  41 at your option, any later version of Perl 5 you may have available.
  42
  43 =cut