print_data

`print_data_count()`

And here's the original version of a similar Data::Presenter method which get the number of data records in the object and prints it to STDOUT.

    sub print_data_count {
        my $self = shift;
        my %data = %$self;
        my $count = 0;
        foreach (keys %data) {
            unless ($reserved{$_}) {
                $count++;
            }
        }
        print "Current data count:  $count\n";
    }