#!perl -w
use lib "../lib/";
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",
);
# ===== Protein Class
my $AlleleClass = FAIR::Profile::Class->new(
onClassType => "http://purl.obolibrary.org/obo/SO_0001023", # allele
label => "FAIR Class of DragonDB Allele",
);
my $representedByProperty = FAIR::Profile::Property->new(
label => "is represented by",
);
$representedByProperty->add_AllowedValue('http://biordf.org/DataFairPort/ConceptSchemes/EDAMOntologyImage2968');
$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;
}