File Coverage

blib/lib/Curses/Toolkit/Object.pm
Criterion Covered Total %
statement 6 9 66.6
branch 0 2 0.0
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 15 53.3


line stmt bran cond sub pod time code
1             #
2             # This file is part of Curses-Toolkit
3             #
4             # This software is copyright (c) 2011 by Damien "dams" Krotkine.
5             #
6             # This is free software; you can redistribute it and/or modify it under
7             # the same terms as the Perl 5 programming language system itself.
8             #
9 1     1   930 use warnings;
  1         2  
  1         45  
10 1     1   5 use strict;
  1         3  
  1         130  
11              
12             package Curses::Toolkit::Object;
13             {
14             $Curses::Toolkit::Object::VERSION = '0.211';
15             }
16             # ABSTRACT: base class for objects
17              
18             sub new {
19 0     0 0   my $class = shift;
20 0 0         $class eq __PACKAGE__ and die "abstract class";
21 0           return bless { }, $class;
22             }
23              
24             1;
25              
26             __END__