[perl #43751] [TODO] extract code into sub generate_pbc()

[via RT]

# New Ticket Created by  Paul Cochrane 
# Please include the string:  [perl #43751]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=43751 >


In the file lib/Parrot/Test.pm there is the todo item:

        # XXX put this into sub generate_pbc()

Extract this code and put it into generate_pbc()