#!/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();