Lines Matching refs:FILE
26 use File::Spec;
51 foreach my $file ($self->_generateHeaderFile($interface), $self->_generateImplementationFile($interface)) {
52 open(FILE, ">", File::Spec->catfile($$self{outputDir}, $$file{name})) or die "Failed to open $$file{name} for writing: $!";
53 print FILE @{$$file{contents}};
54 close(FILE) or die "Failed to close $$file{name} after writing: $!";
79 # FIXME: We should pull header out of the IDL file to get the copyright
