File Coverage

blib/lib/OpenFrame/Object.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package OpenFrame::Object;

use strict;
use warnings::register;

use OpenFrame;

our $VERSION=3.05;

sub new {
  my $class = shift;
  my $self  = {};
  bless $self, $class;
  $self->init(@_);
  return $self;
}

sub init {
  my $self = shift;
}

sub error {
  my $self = shift;
  my $mesg = shift;
  my $pack = ref( $self );
  my ($package, $filename, $line, $subroutine, $hasargs,
      $wantarray, $evaltext, $is_require, $hints, $bitmask) = caller( 1 );
  if ($OpenFrame::DEBUG{ ALL } || $OpenFrame::DEBUG{ $pack }) {
    warnings::warn("[$pack\::$subroutine] $mesg");
  }
}

1;

__END__