File Coverage

blib/lib/Object/SpaceBackStr.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 12 13 92.3


line stmt bran cond sub pod time code
1             package Object::SpaceBackStr;
2              
3 1     1   26326 use 5.010001;
  1         5  
  1         133  
4              
5             our $VERSION = '0.02'; # VERSION
6              
7 1     1   1773 use overload q{""} => sub { " \b" };
  1     2   1149  
  1         10  
  2         152  
8              
9 1     1 0 18 sub new { bless(\"$_[0]", $_[0]) }
10              
11             1;
12             # ABSTRACT: Object which stringifies to space+backspace (" \b")
13              
14             __END__