#!perl -w
my
$DragonDB_AlleleProfile
= FAIR::Profile->new(
label
=>
'FAIR Profile the Image portion of Allele records of DragonDB using EDAM:Image classification'
,
title
=>
"FAIR Profile the Image portion of Allele records of DragonDB using EDAM:Image classification"
,
description
=>
"FAIR Profile the Image portion of Allele records of DragonDB using EDAM:Image classification"
,
license
=>
"Anyone may use this freely"
,
issued
=>
"May 21, 2015"
,
organization
=>
"wilkinsonlab.info"
,
identifier
=>
"doi:Mark.Dragon.P3"
,
);
my
$AlleleClass
= FAIR::Profile::Class->new(
label
=>
"FAIR Class of DragonDB Allele"
,
);
my
$representedByProperty
= FAIR::Profile::Property->new(
label
=>
"is represented by"
,
);
$AlleleClass
->add_Property(
$representedByProperty
);
$DragonDB_AlleleProfile
->add_Class(
$AlleleClass
);
foreach
(
$DragonDB_AlleleProfile
){
my
$filename
=
$_
->URI;
die
"no match $filename\n"
unless
(
$filename
=~ /.*\/(\S+)/);
$filename
= $1;
my
$schemardf
=
$_
->serialize;
open
(OUT,
">$filename"
) or
die
"Can't open the output file to write the profile $filename!\n"
;
print
$schemardf
,
"\n\n================================\n\n"
;
print
OUT
$schemardf
;
close
OUT;
}