use strict;
use warnings;

BEGIN {
    $ENV{ANSI_COLORS_DISABLED} = 1;
    delete $ENV{DATAPRINTERRC};
    use File::HomeDir::Test;  # avoid user's .dataprinter
};

package Foo;
sub bar  { "I exist with " . scalar @_ . " arguments" }
sub _moo { }
sub new  { bless {}, shift }

1;


package main;
use Test::More tests => 1;
use Data::Printer return_value => 'dump', class_method => 'bar';

my $obj = Foo->new;

is p($obj), 'I exist with 2 arguments', 'printing object via class_method "bar()"';