view release on metacpan or  search on metacpan

t/tersify.t  view on Meta::CPAN

        qr{ DBIx::Class::ResultSource::View \s \S+ \s Look \s at \s Dave! }x,
        'This also works for views');
}

sub test_result_set {
    # We can tersify a resultset object...
    my %data = (
        result_set => bless {
            _result_class => 'Arbitrary::Class::Name',
            attrs         => {
                Paul    => 'alive',
                Jessica => 'alive',
                Leto    => 'dead',
                Alia    => 'abomination',
            },
            cond          => 'Not even a hashref',
            result_source => 'Ignored',
        } => 'DBIx::Class::ResultSet',
    );
    my $tersified = tersify(\%data);
    like(
        ${ $tersified->{result_set} },