package Devel::Size;
use strict;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $warn $dangle);
+use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS $warn $dangle);
-require 5.008;
+require 5.005;
require Exporter;
-require DynaLoader;
+require XSLoader;
-@ISA = qw(Exporter DynaLoader);
+@ISA = qw(Exporter);
-# This allows declaration use Devel::Size ':all';
-%EXPORT_TAGS = ( 'all' => [ qw(
- size total_size
-) ] );
+@EXPORT_OK = qw(size total_size);
-@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
+# This allows declaration use Devel::Size ':all';
+%EXPORT_TAGS = ( 'all' => \@EXPORT_OK );
-@EXPORT = qw( );
-$VERSION = '0.72_50';
+$VERSION = '0.77_50';
-bootstrap Devel::Size $VERSION;
+XSLoader::load( __PACKAGE__);
$warn = 1;
$dangle = 0; ## Set true to enable warnings about dangling pointers
Small portion taken from the B module as shipped with perl 5.6.2.
-New pointer tracking & exception handling by BrowserUK
+Previously maintained by Tels <http://bloodgate.com>
+
+New pointer tracking & exception handling for 0.72 by BrowserUK
-Maintained now by Tels <http://bloodgate.com>
+Currently maintained by Nicholas Clark
=head1 COPYRIGHT