From 8455f7a9f2e388c29abebc9bf18d657c11d5e27f Mon Sep 17 00:00:00 2001 From: Patrick Williams Date: Fri, 7 Oct 2011 11:50:35 -0500 Subject: Add Perl Debug-Framework. Change-Id: Idc3ba97083a64616a2f3b9e73b4c4c9e1ee1c710 Reviewed-on: http://gfw160.austin.ibm.com:8080/gerrit/473 Tested-by: Jenkins Server Reviewed-by: A. Patrick Williams III --- src/build/debug/Hostboot/Example.pm | 45 +++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100755 src/build/debug/Hostboot/Example.pm (limited to 'src/build/debug/Hostboot/Example.pm') diff --git a/src/build/debug/Hostboot/Example.pm b/src/build/debug/Hostboot/Example.pm new file mode 100755 index 000000000..25ca61365 --- /dev/null +++ b/src/build/debug/Hostboot/Example.pm @@ -0,0 +1,45 @@ +#!/usr/bin/perl +# IBM_PROLOG_BEGIN_TAG +# This is an automatically generated prolog. +# +# $Source: src/build/debug/Hostboot/Example.pm $ +# +# IBM CONFIDENTIAL +# +# COPYRIGHT International Business Machines Corp. 2011 +# +# p1 +# +# Object Code Only (OCO) source materials +# Licensed Internal Code Source Materials +# IBM HostBoot Licensed Internal Code +# +# The source code for this program is not published or other- +# wise divested of its trade secrets, irrespective of what has +# been deposited with the U.S. Copyright Office. +# +# Origin: 30 +# +# IBM_PROLOG_END + +use strict; + +package Hostboot::Example; +use Exporter; +our @EXPORT_OK = ('main'); + +sub main +{ + ::userDisplay "Welcome to the example module.\n"; + ::userDisplay "Calling 'usage', which will exit...\n"; + ::usage(); + ::userDisplay "Should never get here.\n"; + + return 0; +} + +sub help +{ + ::userDisplay "Tool: Example\n"; + ::userDisplay "\tDoesn't really do anything special.\n"; +} -- cgit v1.2.1