File Coverage

lib/XML/XMetaL/Base.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package XML::XMetaL::Base;

use 5.008;
use strict;
use warnings;

use Hash::Util qw(lock_keys);
use Win32::OLE;

use XML::XMetaL::Utilities;

use constant TRUE  => 1;
use constant FALSE => 0;


sub new {
    my ($class, %args) = @_;
    my $self;
    eval {
        lock_keys(%args,qw(-application));
        $self = bless {
            _utilities   => XML::XMetaL::Utilities->new(-application => $args{-application}),
        }, ref($class) || $class;
        lock_keys(%$self, keys %$self);
    };
    croak $@ if $@;
    return $self;
}

sub _get_application {$_[0]->_get_utilities()->get_application()}
sub _get_documents {$_[0]->_get_application()->{Documents}}
sub _get_active_document {$_[0]->_get_utilities()->get_active_document()}
sub _get_utilities {$_[0]->{_utilities}}

# ======================================================================
# Default handlers
# ======================================================================

our $AUTOLOAD;
sub AUTOLOAD {
    my ($self, @args) = @_;
    my ($class, $method) = $AUTOLOAD =~ /^(.*)::(.*)$/;
    return if $method eq 'DESTROY';
    no strict 'refs';
    *{$AUTOLOAD} = sub {
        my ($self) = @_;
        my $application = $self->_get_application();
        $application->SetStatusText("No handler implemented for $method events");
        return $application->{DisplayAlerts};
    };
    $self->$method();
}

1;
__END__