package Blikistan::MagicEngine;
use strict;
use warnings;
sub new {
my $class = shift;
my $self = { @_ };
bless $self, $class;
return $self;
}
sub print_blog { die 'Subclass must implement' }
1;
package Blikistan::MagicEngine;
use strict;
use warnings;
sub new {
my $class = shift;
my $self = { @_ };
bless $self, $class;
return $self;
}
sub print_blog { die 'Subclass must implement' }
1;