diff options
Diffstat (limited to 'new-demo')
-rw-r--r-- | new-demo | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/new-demo b/new-demo new file mode 100644 index 0000000..57e5e8b --- /dev/null +++ b/new-demo @@ -0,0 +1,40 @@ +#!/usr/bin/env perl + +# Class for the object +package RPG::Wizard; +use strict; +use warnings; +use utf8; +use 5.010; +use Carp; +our $VERSION = 0.1; + +sub new { + my ($class) = @_; + return bless {}, $class; +} + +sub zap { + my ($self) = @_; + say 'Zap!' or croak; + return; +} +1; + +# Demonstration of PACKAGE::new() +package Sanctum::New::Demo; ## no critic (ProhibitMultiplePackages) +use strict; +use warnings; +use utf8; +use 5.010; +use Data::Printer; ## no critic (ProhibitDebuggingModules) +our $VERSION = 0.1; ## no critic (ProhibitReusedNames) + +# Make a wizard object +my $wizard = RPG::Wizard->new(); + +# Print the object +p $wizard; + +# Zap! +$wizard->zap(); |