1
0
Fork 0
mirror of https://github.com/shlomif/PySolFC.git synced 2025-04-05 00:02:29 -04:00
PySolFC/tests/lib/MyTidyAll.pm
2019-01-26 19:53:49 +02:00

27 lines
452 B
Perl

package MyCacheModel;
use Moo;
extends('Code::TidyAll::CacheModel');
my $DUMMY_LAST_MOD = 0;
sub _build_cache_value
{
my ($self) = @_;
return $self->_sig(
[ $self->base_sig, $DUMMY_LAST_MOD, $self->file_contents ] );
}
package main;
use Test::Code::TidyAll qw/ tidyall_ok /;
my $KEY = 'TIDYALL_DATA_DIR';
tidyall_ok(
cache_model_class => 'MyCacheModel',
( exists( $ENV{$KEY} ) ? ( data_dir => $ENV{$KEY} ) : () )
);
1;