package AbstractClass; use strict; sub templateMethod { my $self = shift; $self->primitiveOperation1(); $self->primitiveOperation2(); } sub primitiveOperation1 { die; } sub primitiveOperation2 { die; } 1;