1# Fuse.pm: perl modules for autogenerated Fuse code 2 3# This program is free software; you can redistribute it and/or modify 4# it under the terms of the GNU General Public License as published by 5# the Free Software Foundation; either version 2 of the License, or 6# (at your option) any later version. 7 8# This program is distributed in the hope that it will be useful, 9# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# GNU General Public License for more details. 12 13# You should have received a copy of the GNU General Public License along 14# with this program; if not, write to the Free Software Foundation, Inc., 15# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. 16 17# Author contact information: 18 19# E-mail: philip-fuse@shadowmagic.org.uk 20 21package Fuse; 22 23use strict; 24 25sub GPL ($$) { 26 27 my( $description, $copyright ) = @_; 28 29 return << "CODE"; 30/* $description 31 Copyright (c) $copyright 32 33 This program is free software; you can redistribute it and/or modify 34 it under the terms of the GNU General Public License as published by 35 the Free Software Foundation; either version 2 of the License, or 36 (at your option) any later version. 37 38 This program is distributed in the hope that it will be useful, 39 but WITHOUT ANY WARRANTY; without even the implied warranty of 40 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 41 GNU General Public License for more details. 42 43 You should have received a copy of the GNU General Public License along 44 with this program; if not, write to the Free Software Foundation, Inc., 45 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. 46 47 Author contact information: 48 49 E-mail: philip-fuse\@shadowmagic.org.uk 50 51*/ 52CODE 53 54} 55 561; 57