view release on metacpan or  search on metacpan

t/50cmd-print-table.t  view on Meta::CPAN

#!/usr/bin/perl

use v5.14;
use warnings;

use Test2::V0;

use Devel::MAT;

sub lines_from(&)
{
   my ( $code ) = @_;

   my @lines;

   no warnings 'once';
   local *Devel::MAT::Cmd::printf = sub {
      shift;
      my ( $format, @args ) = @_;
      push @lines, sprintf $format, @args;