1 #!/usr/bin/perl -w 2 # 3 # Copyright (C) 2011 Apple Inc. All rights reserved. 4 # Copyright (C) 2011 Google Inc. All rights reserved. 5 # 6 # Redistribution and use in source and binary forms, with or without 7 # modification, are permitted provided that the following conditions 8 # are met: 9 # 1. Redistributions of source code must retain the above copyright 10 # notice, this list of conditions and the following disclaimer. 11 # 2. Redistributions in binary form must reproduce the above copyright 12 # notice, this list of conditions and the following disclaimer in the 13 # documentation and/or other materials provided with the distribution. 14 # 15 # THIS SOFTWARE IS PROVIDED BY APPLE INC. AND ITS CONTRIBUTORS ``AS IS'' AND ANY 16 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 17 # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 18 # DISCLAIMED. IN NO EVENT SHALL APPLE INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY 19 # DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 20 # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 21 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON 22 # ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 23 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 24 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 25 # 26 # Imports Perl scripts into a package for easy unit testing. 27 28 package LoadAsModule; 29 30 use strict; 31 use warnings; 32 33 use File::Spec; 34 use FindBin; 35 use lib File::Spec->catdir($FindBin::Bin, "..", ".."); 36 use webkitdirs; 37 38 use base 'Exporter'; 39 use vars qw(@EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION); 40 41 @EXPORT = (); 42 @EXPORT_OK = (); 43 %EXPORT_TAGS = (); 44 $VERSION = '1.0'; 45 46 sub readFile($); 47 48 sub import 49 { 50 my ($self, $package, $script) = @_; 51 my $scriptPath = File::Spec->catfile(sourceDir(), "Tools", "Scripts", $script); 52 eval " 53 package $package; 54 55 use strict; 56 use warnings; 57 58 use base 'Exporter'; 59 use vars qw(\@EXPORT \@EXPORT_OK \%EXPORT_TAGS \$VERSION); 60 61 \@EXPORT = (); 62 \@EXPORT_OK = (); 63 \%EXPORT_TAGS = (); 64 \$VERSION = '1.0'; 65 66 sub {" . readFile($scriptPath) . "} 67 "; 68 } 69 70 sub readFile($) 71 { 72 my $path = shift; 73 local $/ = undef; # Read in the whole file at once. 74 open FILE, "<", $path or die "Cannot open $path: $!"; 75 my $contents = <FILE>; 76 close FILE; 77 return $contents; 78 }; 79 80 1; 81
