File Coverage

blib/lib/Devel/MAT/Tool/Summary.pm
Criterion Covered Total %
statement 14 18 77.7
branch 0 2 0.0
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 19 27 70.3


line stmt bran cond sub pod time code
1             # You may distribute under the terms of either the GNU General Public License
2             # or the Artistic License (the same terms as Perl itself)
3             #
4             # (C) Paul Evans, 2018 -- leonerd@leonerd.org.uk
5              
6             package Devel::MAT::Tool::Summary 0.49;
7              
8 5     5   3006 use v5.14;
  5         17  
9 5     5   23 use warnings;
  5         19  
  5         138  
10 5     5   135 use base qw( Devel::MAT::Tool );
  5         68  
  5         486  
11              
12 5     5   28 use constant CMD => "summary";
  5         9  
  5         247  
13 5     5   26 use constant CMD_DESC => "Print basic information about the loaded dumpfile";
  5         8  
  5         625  
14              
15             =head1 NAME
16              
17             C - show basic information about the dumpfile
18              
19             =head1 COMANDS
20              
21             =cut
22              
23             =head2 summary
24              
25             pmat> summary
26             Perl memory dumpfile from perl 5.26.1 threaded
27             Heap contains 3315 objects
28              
29             Prints basic information about the dumpfile - the version of perl that created
30             it, and the number of SVs it contains.
31              
32             =cut
33              
34             sub run
35             {
36 0     0 0   my $self = shift;
37              
38 0           my $df = $self->df;
39              
40 0 0         Devel::MAT::Cmd->printf( "Perl memory dumpfile from perl %s %s\n",
41             $df->perlversion, $df->ithreads ? "threaded" : "non-threaded" );
42              
43 0           Devel::MAT::Cmd->printf( "Heap contains %d objects\n", scalar $df->heap );
44             }
45              
46             =head1 AUTHOR
47              
48             Paul Evans
49              
50             =cut
51              
52             0x55AA;