#! /usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use BioUtils 'get_all';
use Data::Dumper::Concise;
use File::Basename;
use List::MoreUtils 'uniq';

my %cassette_vector_name_file_lookup = (
    L1L2_6XOspnEnh_Bact_P =>
        "pL1L2_GTIRES_6xostpn_BetactP_FLFL_Map_Verified.gbk",
    L1L2_Bact_EM7         => "FINAL_pL1L2_GTIRES_BetactP_FLFL_EM7_neo.gbk",
    L1L2_Bact_P           => "pL1L2_GTIRES_BetactP_FLFL_MapVerified.gbk",
    L1L2_Del_BactPneo_FFL => "pL1L2_Del_BactPneo_FFL_PG.gbk",
    L1L2_NorCOMM          => "L1L2_NorCOMM.gbk",
    L1L2_Pgk_P            => "pL1L2_GTIRES_PgkP_FLFL_Verified_Map.gbk",
    L1L2_Pgk_PM    => "pL1L2_GTIRES_PgkP_FLFL_Neo_Mutant_Verified_Map.gbk",
    L1L2_gt0       => "pL1L2_GT0_EUCOMM_MapVerified.gbk",
    L1L2_gt1       => "pL1L2_GT1_EUCOMM_MapVerified.gbk",
    L1L2_gt2       => "pL1L2_GT2_EUCOMM_MapVerified.gbk",
    L1L2_gtk       => "pL1L2_GTK_EUCOMM_MapVerified.gbk",
    L1L2_hubi_P    => "pL1L2_GTIRES_hubiqui_P_FLFL_Map_Verified.gbk",
    L1L2_st0       => "pL1L2_ST0_EUCOMM_MapVerified.gbk",
    L1L2_st1       => "pL1L2_ST1_EUCOMM_MapVerified.gbk",
    L1L2_st2       => "pL1L2_ST2_EUCOMM_MapVerified.gbk",
    Ty1_EGFP       => "Ty1_EGFP_tag.gbk",
    V5_Flag_biotin => "V5_Flag_biotin_tag.gbk",
    'L1L2_GOHANU'  => 'pGOHANU_Promoter_L1L2_for_Sanger.gbk',
    'L1L2_NTARU-0' => 'NorCOMM_L1L2_frame_0.gbk',
    'L1L2_NTARU-1' => 'NorCOMM_L1L2_Frame_1.gbk',
    'L1L2_NTARU-2' => 'NorCOMM_L1L2_frame_2.gbk',
    'L1L2_NTARU-K' => 'NorCOMM_L1L2_Frame_K.gbk',
);

my %filenames = reverse %cassette_vector_name_file_lookup;

print Dumper [
    map eval($_),
    uniq
    map Dumper($_),
    sort {
           $a->{key}       cmp $b->{key}
        || $a->{qualifier} cmp $b->{qualifier}
        || $a->{sequence}  cmp $b->{sequence}
    }
    map {
        my ( $k, $v ) = %$_;
        { key => $k, qualifier => $v->{tags}{note}, sequence => $v->{seq} }
    }
    get_all( "objects", grep exists $filenames{ basename($_) }, @ARGV )
];

exit 0;