Commits

Palmer, 2E0EOL committed 7670722 Draft

Add initial package

Comments (0)

Files changed (1)

lib/Class/Struct/Trapper.pm

+#!/usr/bin/perl -w
+
+package Class::Struct::Trapper;
+use Carp;
+
+use strict;
+use warnings;
+use diagnostics;
+
+our $VERSION = '0.0.0';
+#----------------------------------------------------------------------------
+sub new
+{
+	my $ret;
+	my $proto = $_[0];
+	my $class = ref($proto) || $proto;
+	my $self = {
+		_user_var => { } # User must treat this as opaque.
+	};
+
+	return bless($self, $class);
+}
+#----------------------------------------------------------------------------
+=head2 DESTROY
+
+The destructor typically does nothing, however, in debug mode, the contents
+of the _user_var are sent to Data::Dumper.
+
+=cut
+#----------------------------------------------------------------------------
+sub DESTROY
+{
+	my $self = $_[0];
+}
+#----------------------------------------------------------------------------
+1;