From cebc43339efa6e1ee7f016e3d53aba821ab301f5 Mon Sep 17 00:00:00 2001 From: Tom Ryder Date: Wed, 13 Apr 2016 14:21:41 +1200 Subject: First commit Just demonstrating Perl's oddish object-oriented paradigm to a friend of mine --- bless-demo | 37 +++++++++++++++++++++++++++++++++++++ new-demo | 40 ++++++++++++++++++++++++++++++++++++++++ 2 files changed, 77 insertions(+) create mode 100644 bless-demo create mode 100644 new-demo diff --git a/bless-demo b/bless-demo new file mode 100644 index 0000000..55f8734 --- /dev/null +++ b/bless-demo @@ -0,0 +1,37 @@ +#!/usr/bin/env perl + +# Class for the object +package Sanctum::Bless::Class; +use strict; +use warnings; +use utf8; +use 5.010; +our $VERSION = 0.1; +use Data::Printer; ## no critic (ProhibitDebuggingModules) + +sub spit { + my ($self) = @_; + p $self; + return; +} +1; + +# Demonstration of bless() +package Sanctum::Bless::Demo; ## no critic (ProhibitMultiplePackages) +use strict; +use warnings; +use utf8; +use 5.010; +our $VERSION = 0.1; ## no critic (ProhibitReusedNames) + +# Create a new hash reference +my $hash = { ayy => 'lmao', }; + +# Bless the hash reference into the Sanctum::Bless::Class. It thereby becomes +# an *instance* of "Sanctum::Bless:Class", which means it gains the "spit" +# method defined for it. +bless $hash, 'Sanctum::Bless::Class'; +bless $hash, 'Sanctum::Bless::Wizard'; + +# Run the spit() method that's now available on the hashref. +$hash->spit(); 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(); -- cgit v1.2.3