Test::MockObject not showing args when mocking a sub

Select or download this

    $port = new Device::SerialPort("/dev$opt_p");

Select or download this

write_chunk ("modem control stuff");

Select or download this

sub write_chunk {
    (my $count) = $port->write($_[0]);
}

Select or download this

if ($TESTING) {
    use Test::MockObject;
...
else {
    $port = new Device::SerialPort("/dev/$opt_p");
}

Select or download this
wrote ATZ\r to the serial port

Select or download this
wrote Test::MockObject=HASH(0x885d760) to the serial port

Select or download this

    * "mock(*name*, *coderef*)"
        Adds a coderef to the object. This allows code to call the nam
+ed
...
            print $mock->fluorinate;

        will print a helpful warning message.

Select Code to Download