| branch | moose |
| changeset 2 | ba9ad363d185 |
| parent 1 | d2562d0417a9 |
| 1:d2562d0417a9 | 2:ba9ad363d185 |
|---|---|
4 use warnings; |
4 use warnings; |
5 use blib; |
5 use blib; |
6 use BlockDev; |
6 use BlockDev; |
7 |
7 |
8 |
8 |
9 my $dev = BlockDev->new(dev => "/dev/sda1"); |
9 my $dev = BlockDev->new(@ARGV); |
10 say scalar $dev->rdev(); |
10 say $dev->major; |
11 say $dev->minor; |
|
12 #say $dev->mami; |
|
13 say $dev->dev; |
|
14 say $dev->path; |
|
11 |
15 |