Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^2: Test::MockObject not showing args when mocking a sub

by jvector (Friar)
on May 27, 2009 at 14:45 UTC ( [id://766440]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    
    $port->mock ('write',
                 sub {my $Mock=shift;my $arg=shift;$arg=~s/\r/\n/g;print "
    +wrote $arg to the serial port\n";});
    
  2. or download this
    wrote ATE0
     to the serial port
    ...
    wrote ATI
     to the serial port
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://766440]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2024-04-12 11:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found