I as hoping to use it not for test coverage but just to make it easier
to remove a huge accumulation of obsolete garbage, but so far all I
see how to get out of it are aggregate stats, not actual names of used
subroutines.
I ran it like this:
perl -MDevel::Cover ./quectel_test_http_post
Among other things it says:
Devel::Cover: Writing coverage database to
/home/bkerin/projects/tank_level/software/cover_db/runs/1583098254.26560.14523
but the files in there don't appear to be human readable. How do I
get a list of called routines?
(The full output for this case is shown below).
I also tried to just track subroutines but it didn't seem to work:
$ perl -MDevel::Cover=-coverage,subroutine ./quectel_test_http_post
Devel::Cover 1.33: Collecting coverage data for subroutine.
Selecting packages matching:
Ignoring packages matching:
/Devel/Cover[./]
Ignoring packages in:
/home/bkerin/local/perl5/lib/perl5/5.20.2/x86_64-linux-gnu-thread-multi
/home/bkerin/local/perl5/lib/perl5/5.20.2
/home/bkerin/local/perl5/lib/perl5/x86_64-linux-gnu-thread-multi
/home/bkerin/local/perl5/lib/perl5
/home/bkerin/local/share/perl/5.20.2
/home/bkerin/local/share/perl
/home/bkerin/projects/libblk/perl/modules
/etc/perl
/usr/lib/x86_64-linux-gnu/perl5/5.20
/usr/share/perl5
/usr/lib/x86_64-linux-gnu/perl/5.20.2
/usr/share/perl/5.20.2
/home/bkerin/local/perl5/lib/perl5/5.20.0
Checking if AT works... done
Checking SIM... done
Starting and registering... done
Configuring PDP context 1 access point, protocol, etc. ... done
Checking (and possibly setting) some modem state... done
Configuring HTTP settings... done
Starting POST... done
Response:
{"result": "success"}
Devel::Cover: getting BEGIN block coverage
Devel::Cover: 100% - 0s taken
Devel::Cover: getting CHECK block coverage
Devel::Cover: 100% - 0s taken
Devel::Cover: getting END/INIT block coverage
Devel::Cover: 100% - 0s taken
Devel::Cover: getting CV coverage
Devel::Cover: 100% - 0s taken
Devel::Cover: Writing coverage database to
/home/bkerin/projects/tank_level/software/cover_db/runs/1583098604.29739.02288
Devel::Cover: Can't find digest for quectel_test_http_post
Devel::Cover: Can't find digest for Quectel.pm
----- ------ ------
File sub total
----- ------ ------
Total n/a n/a
----- ------ ------
Here is the full output of other command mentioned above:
$ perl -MDevel::Cover ./quectel_test_http_post
Devel::Cover 1.33: Collecting coverage data for branch, condition,
statement, subroutine and time.
Pod coverage is unavailable. Please install Pod::Coverage from CPAN.
Selecting packages matching:
Ignoring packages matching:
/Devel/Cover[./]
Ignoring packages in:
/home/bkerin/local/perl5/lib/perl5/5.20.2/x86_64-linux-gnu-thread-multi
/home/bkerin/local/perl5/lib/perl5/5.20.2
/home/bkerin/local/perl5/lib/perl5/x86_64-linux-gnu-thread-multi
/home/bkerin/local/perl5/lib/perl5
/home/bkerin/local/share/perl/5.20.2
/home/bkerin/local/share/perl
/home/bkerin/projects/libblk/perl/modules
/etc/perl
/usr/lib/x86_64-linux-gnu/perl5/5.20
/usr/share/perl5
/usr/lib/x86_64-linux-gnu/perl/5.20.2
/usr/share/perl/5.20.2
/home/bkerin/local/perl5/lib/perl5/5.20.0
Checking if AT works... done
Checking SIM... done
Starting and registering... done
Configuring PDP context 1 access point, protocol, etc. ... done
Checking (and possibly setting) some modem state... done
Configuring HTTP settings... done
Starting POST... done
Response:
{"result": "success"}
Devel::Cover: getting BEGIN block coverage
Devel::Cover: 100% - 0s taken
Devel::Cover: getting CHECK block coverage
Devel::Cover: 100% - 0s taken
Devel::Cover: getting END/INIT block coverage
Devel::Cover: 100% - 0s taken
Devel::Cover: getting CV coverage
Devel::Cover: 100% - 0s taken
Devel::Cover: Writing coverage database to
/home/bkerin/projects/tank_level/software/cover_db/runs/1583098700.30574.03491
---------------------- ------ ------ ------ ------ ------ ------
File stmt bran cond sub time total
---------------------- ------ ------ ------ ------ ------ ------
Quectel.pm 27.2 19.5 16.6 34.5 99.7 25.1
quectel_test_http_post 93.5 n/a n/a 100.0 0.2 94.1
Total 32.8 19.5 16.6 40.9 100.0 29.2
---------------------- ------ ------ ------ ------ ------ ------
Thanks,
Britton
