| Current Path : /usr/local/share/perl5/Data/Printer/Filter/ |
| Current File : //usr/local/share/perl5/Data/Printer/Filter/FORMAT.pm |
package Data::Printer::Filter::FORMAT;
use strict;
use warnings;
use Data::Printer::Filter;
filter 'FORMAT' => \&parse;
sub parse {
my ($format, $ddp) = @_;
return $ddp->maybe_colorize('FORMAT', 'format');
};
1;