#!/usr/bin/perl

use strict;
use warnings;

use Device::Chip::SDCard;
use Device::Chip::Adapter;

use Future::AsyncAwait;
use Getopt::Long;
use Time::HiRes qw( sleep );

GetOptions(
   'adapter|A=s' => \my $ADAPTER,
) or exit 1;

my $card = Device::Chip::SDCard->new;
await $card->mount(
   Device::Chip::Adapter->new_from_description( $ADAPTER )
);

await $card->initialise;
print STDERR "Card initialised\n";

use Data::Dump 'pp';
print pp await $card->read_csd;
